LABEL OOQOOQOOOLINE 00178079CC EX O/RSCOMMON*®1AF ILE S=PATCHES/TSSMCP3FILE LINESLINE PRINTJENDS 


FYLEt PaTCHES/TSSMCP MONDAY 03/20/78 O2t07 PM 
$# PATCK NUMBER 101 FOR TSSMCP CONTAINS O01 CARDS.» 
‘ BEGIN DS8= 16 LIT"*SYSTEM HANGs Fens 00652400 
$3 BY DOD 
$1 7/16/74 
$! TR ae 


$3 THIS PATCH REFORMATS THE "SYSTEM HANG” MESSAGEe 


SU ie I EI SUI IDIIOIG IORI IIDIGIIIDISIITIDIOIGIDISISIOIIOI UII IGIIOOIOI IIT ttt 


$S#PATCH NUMBER 102 FCR TSSMCP CONTAINS 010 CARDS 00000000 
$vOroT 14218081 14218071 
IF AITCATTCOIJe£(8#10) NEQ 1 THEN 14218072 

BEGIN 14218074 

It=13 14218076 

WHILE AITCII.C€8810) = 1 DO Iielels 14218078 

FOR Jt*AITCO] STEP =1 UNTIL I OO 14218088 

AITC UL teaAlTCus3 14216082 

END ELSE I[&sAlTCOI+13 14218084 

AITCO]8aePCOUP) + 13 14218086 

AITCI J) samC(L RL CB s3Gs1OJamMC CICK IF IDS 14218088 

$t THIS CHANGE CORRECTS AN ERROR IN THE HANOLING OF COBQL68 90000000 
$SOPEN STATEMENTS THAT OCCUR In THE INPUT OR QUTPUT PROCEDURE 90000005 
$:;0F A SORT. THE FILES WILL NOW BE LEFT OPEN AS THEY SHOQULDe 90000010 


SII III IG IOI IGIGOIIOIIIOI IID IOI SOIIDIDIGIGIIIDICIOIOISI IOI IIIT 
$#PATCH NUMBER 103 FOR TSSMCP CONTAINS 1 CARDS. , 
IF P OR I THEN 38608920 
$3 THIS PATCH CORRECTS aN ERROR IN THE MCP PROCEDURE BACKCLOSE 
$3 THAT WOULD SOMETIMES CAUSE "PUD" FILES NOT TO BE PUNCHED EVEN WITH 
$1 THE GPTION AUTOPRAT SET. 
81 ede eae ee I OI I IINISIGGIIOIIG III GI IOIGIUIOIDI IIIS EI III 
S#PATCH NUMBER 104 FOR TSSMCP CONTAINS 1 CARD 
SCHEDLOOKCKTR»TYPES7) % ES862 XS27 16651000 
$3 FIXES THE SCHEDULE LINE "XS" KEYIN 
6 ee OR III II IIISIDIII GIGI IGIIIDISCIDIGIGIIISIOIGIISIOIIIOIOI ICING IDIOT It 
$#PATCH NUMBER 105 FCR TSSMCP CONTAINS 2 CARDS 
IF (TL «© PSEUDOMIXCPIMIX]) 4 0 THEN 39092165 
IF PACKETPAGECTI * 32] 4 0 THEN 39092167 
$1 BY KEN KOVACS 
$i DATA 4/22/74 
$! THIS PATCH CORRECTS AN INVALID INDEX IN CONTROL STATE®s 
Sie I RO i IOI IR OISIDIGIIGIOIIGI GID IDIIOIUIOIITOOIUIOIOIGIOIDIDUISIOIN III ITO Ei tt 


$#PATCH NUMBER 106 FOR TSSMCP CONTAINS 6 CARDS» 


$ VOIDT 07118401 07118100 

If PACKETCARD = 5 THEN 07118500 

IF PTYPE = 3 AND NOT CONTINUE AND NOT ANECK THEN 07139520 

IF PKT@NLY THEN 20602515 

$ SET OMIT = NOTCPACKETS) | 20609425 

IF PSEUDOCUNITNO™32) = O THEN 20609430 

PRINTTRECCVER(CARDLOC»UNITNO»PSOURCE 3 20609435 

$ POP OMIT 20609440 
$1 BY KFK 


$t DATE 02/80/75 

$1 MSA CENTRAL #» DETROIT 

$3 THIS PATCH WILL ALLOW PACKETS AND DECKS TO BE MIXEDe ALSO IF THE 
$$ SPO OPTION “"PKTONLY" IS SET THEN ALL DECKS WILL BE USED AS IF THEY 


$¢ WERE PACKETS. TRAT IS THE USE OF PKTONLY IS NOW CHAN 
$! IT NO LONGER CONTRCLS THE LOADING OF DECKS BUT TO CQ 
$3: USE. 
Sees eee Pune RC eda Den wee ee ea wb ene date ee ea ees 
S#PATCH NUMBER 107 FCR TSSMCP CONTAINS 1 CARDS. 

HEADER(L41§=08 (61001) (2% 3821 0T8SYSNO(484682)35 20289115 
$! By KK 
$$ DATE 8/7/74 
$% THIS PATCH WILL CORRECT A CONDITIGN THAT COULD MARK THE PACKET 
$3: PAGE AS BEING IN USE BY THE WRONG SYSTEM AFTER A HALT/LOAD® 
GS te de ie te ae Re tH KKH Ke TOR RR NRT EERE KK 
$# PATCH NUMBER 10a FOR TSSMCP CONTAINS 001 CARD, 

IF P2>0 THEN MOVEC159PeeT4+4) ELSE MC T+4) P23 03120000 


GED SO THAT 
NTROL OF THEIR 


$: BY 00D 
$3 DATE 8/29/74 
$: THIS PATCH ALLOWS ERROR MESSAGES LONGER THAN 60 CHARACTERS 
$$ TO BE PRINTED CORRECTLY ON A REMOTE TERMINAL THROUGH CANDE.s 
[FR TTL LAELAS ALES ESERIEPCELICCILSTC ELEC CASCASALEECALELELILE PEATE 
S#PATCH NUMBER 109 FOR TSSMCP CONTAINS 1 CARD, 
IF LOGLINE = 0 THEN LOGLINE © = UNITNOS 20602502 
$% BY DND 
$3 DATE 9/19/74 
$1 THIS PATCH REPLACES A LINE OF CODE THAT WAS INADVERTENTLY 
$t LEFT OUT IN THE XV.3 RELEASEe WITHOUT THIS PATCKs ESPDISK 
$: IS NOT HANDLED CORRECTLY» INCORRECT LOG ENTRIES ARE MADE» 
$3 AND SYSTEM HALTS CAN OCCURe 
(VRS ERESCE SELES ESSEC SLE SCCOSCCC CTE SCOPE SSCS CEC CLES S CSS ES SSOSCSAS SELLE SLE. | 
S#PATCH NUMBER 110 FOR 7SSmCP CONTAINS 1 CARDS, 
FIBC16),CCFISsOs% 41204000 
$! BY KK 
$% DATE 10/22/74 
$i THIS PATCH CORRECTS THE TSSMCP"S HANDLING OF TAPE FILES 
$: CLOSED WITH THE "CLOSECKFILEID>»*)" SYNTAXe THE TSSMCP 
$3 WOULD “FORGET” THAT THE LAST I/O DONE ON TRIS FILE WaS A 
$! REVERSE 1/0 BY ZEROING FIBL16)» THUS WHEN TRE FILE IS 
$3: OPENED AGAIN THE TSSMCP WOULD SPACECFORWARD) OVER 
$t THE NEXT FILE® AND THE FILE THAT WAS JUST CLOSED WOULD BE 
$t ACCESSED AGAIN. 
GE tee te te a ei dee eH eT EK ERE HERE ER KEEAHEN ERR ERENKEE 
$# PATCH NUMBER 11% FOR TSSMCP CONTAINS 1 CARDS. 
$ VOIDT 06098204 06097600 
$! BY KK 
$$ DATE 11/7 3774 
$1 THIS PATCH WILL ALLOW A DISK SQUASH TO BO STOPPED ONLY AFTER IT 
$3 HAS FINISHED MOVING A FILEe IF STOPPED SOONER THEN THE AVAILABLE 
$3 DISK TABLE COULD BE DAMMAGEN. 
ER ERESC ESE CSAS SORES SE ELOCCLCOCCL CCC SCARCE RSS SSPE SSPE SOLCESSCCCCCACS ESSEC COSESSES ACCESS 2 
$# PATCH NUMBER 112 FOR TSSMCP CONTAINS 1 CARDS, 
RRRMECH © NOT TWOCU) AND RRRMECHS & LET STATUS FIND IT 04383908 
$! BY KK 
$! DATE 11/7 4/74 ; 
$3 THIS PATCH CORRECTS A PROBLEM WITH UNITS GOING NOT READY 
$! aND THEN NOT BEING PICKED UP AS BEING READY WHEN THEY GO READY 
‘ERSTE SSECCLAC OSLO SOECESLOSCLOCCLICSCCICSASSAESESAESCCECE SESE LLCS CLALALCALSCACSOESL CAT. 
S$#PATCH NUMBER 113 FCR TSSMCP CONTAINS 5 CARDS 
x8 CLKCO] tz 03067500 
$ SET OMIT = NOTCNEWLOGGING) 03067600 


IF LOGSTOPPEDCPIMIX) THEN PROCTIMELPIMIX] ELSE 03067700 
$ POP OMIT 03067800 
PROCTIMECPIMIX) + CLOCK + PCRTR)3 03967900 

$t BY KFK 


$! DATE 11/27/74 
$1 THIS PATCH CORRECTS A CONDITION THAT CAUSED TRE LOG OFF MESSAGE TG 
$: CONTAIN ERRONEOUS CATE, AS A RESULT OF THE NEW MCP COMPILE TIME 
$1 OPTION “NEWLOGGING" THE VALUE OF PROCTIMECPIMIX] IS CHANGED TO 
$1 INDICATE IF THE PROGRAM SHOULD BE CHARGED FOR CPU TIME OR NOTe 
$3! THIS WAS NOT TAKES INTO CONSIDERATION WHEN COMM2 PASSED THE VALUE 
$3 TO BE USED AS "CLOCK" BY CANDE,. 
\ERRZERSSAESSOLE SE CSE SSE ES EC CAPE RARE CECE EEE ECS E CASES ESE ESE REE E RSE EE EER SSE S EE 2 | 
S#PATCH NUMBER 114 FOR TSSMCP CONTAINS 2 CARDS 
$ VOID 37284150 
IF U < 16 THEN FPBCFN+3) 6 CO2A7I¢PRNTABLECU) ,C34317]93 372865410 
$3 BY KFK 
$8 DATE 11/27/74 
$1 WHEN USING A MULTI®FILE P&T THE SECOND ANC FOLLOWING FILES WILL 
$! SOMETIMES BE PRINTED SEVERAL TIMESe THIS WAS CAUSED BY A CONFLICT 
$3 IN THE USE OF A FIELD IN THe FPB OF A PROGRAMe THE SAME FIELD 
$t THaT IS USED TO HOLD THE NUMBER OF COPIES CFROM a FILE EQUATE) 
$t Is ALSO USED TO HELO THE PRN OF THE TAPE. THIS PROBLEM IS 
$3 FIXED BY NOT MOVING THe PRN TO The FBP UNTIL THE FILE IS CLOSED. 
$$ THEN WHEN THE FILE IS REQPENED A NEW SECTION OF THE FPB WILL BE 
$: USED AND THIS WILL CONTAIN THE CORRECT VALUE FOR COPIES.» 
LPR RC REPEC SOSS ERR SERESESPSEALESAPSE REARS REECE CRSP ERE RSA ES REE REE ES ERE REALE EE ES 
S$#PATCH NUMBER 115 FOR TSSMCP CONTAINS 1 CARDS 
KIND@FIBC4),C88413 IF FIBL13).028810]40 THEN REEL eFIBL13),.(28810]%3 39092000 
$3 BY KFK 
$i DATE 11/27/74 
$3 IF THE REEL IS GIVEN ON A FILECEQUATION) CONTROL CARD IT WILt 
$: NOT BE USED BY THE MCP WHEN IT LOOKS FOR A TAPE FILE AT FILE 
$3 OPEN TIME. THIS IS BECAUSE THE REEL NUMBER IS MOVED FROM THE 
$3: FIB. NOW THE REEL NUMBER Is ONLY MOVED FROM THE FIB IF IT IS 
$t NONZERO 
(SRS CES ESAS ESSA ERC CE SECCAC ACCS PER ESSERE EERE PSEC ERS SES ECE C SESE E ESE RE SER EERE ELE SE 2 
S#PATCH NUMBER 116 FOR TSSMCP COBTAINS 1 CARDS 
$ VOroT 38024081 38024010 
$1 BY KFK 
$3 DATE 12/23/74 
$t IF A PROGRAM READS A DISK FILE THAT HAS A ROW SIZE THAT IS LESS 
$1 THAN THE PROGRAMS BUFFER SIZE» TRE MCP WILL ONLY GET A CORE 
$$ BUFFER THE SIZE OF THE DISK FILE"S ROW, BUT ANY PROGRAM THAT 
$1 USES THE BUFFER WITHOUT GOING THUR THE INTRINSICS WILL NOT 
$t KNOW THAT THE BUFFER SIZE HaS BEEN CHANGED3S THEREFORE» AN INVALID 
$t LINK MAY OCCURE IF ONE TRIES TO USE THE PART OF THE BUFFER TRAT 
$: IS NOT THERE, 
PR SERUESERPESASSESSERSESESESESAPERCEASLSA REA ESES ERE REE ER EEE REP RR ERE RRR ERE RRS ERR SE SE 
$#PATCH NUMBER 117 FOR TSSMCP CONTAINS 2 CARDS 
IFCNBCFIAND FOURMASK)e(1!35)#40 THEN GO CLOSEIT3 06058630 
IFCNBCF*SIAND NINEMASK),.C18268]#40 THEN 06058640 
$! BY DOD 
$3 DATE 12/87/74 
$1 THIS PATCH CORRECTS A PROBLEM THAT WOULD CAUSE SOME FILES TO 
$2? BE MARKED IN USE AFTER A KALT/LOAD ON A SHAREDISK SYSTEM. 
PRU UCESCESESECERESSORESCOOSESE EPR ERE SSE SELES ESSERE RPE E ECE SEES EERE CEES ESE EER ESE EES 
S#PATCH NUMBER 118 FOR TSSMCP CONTAINS 1 CARO 


IF COUNT $0 THEN GO TO STARTS 


$:BY DDD 
$32/5/75 


SISOFTWARE FLASH NUMBER 68 


$sIF TWO LIBMAIN/DISKS ARE BOTH WAITING FQ 
$SREADY» ONE COPY WILL BE ASSIGNED THE COR 


StCOPY OF LIBMAIN WILL BE ASSIGNED TO MTA, 


LERMACRPEEACAESSASORE CERES ESSCSAE RPC CEP ERASE REC RREE SESE ERS EER REPRE R SAREE REE SD 


RT 
REC 


HE SAM 
T TAPE 


$#PATCH NUMBER 119 FGR TSSMCP CONTAINS 34 CARDS, 


E 


TAPE 
AND T 


TO 
HE 


BECO 
QTHER 


ME 


StTSSMCPs» 4208 
$1 


$3FROM TAPES WHICH HAVE BEEN 
StFORMATS OF TYPE 2 AND 3. 
$t( PRI 4208 ) 

$#PATCH NUMBER 121 FOR TSSMCP CONTAINS 11 CARDS, 
$VOIDT 


REAL BVOsUBLKSZ»SPB;3 
BCLI=CMCCT&sSPace(41)33841(8238210)3 
IF HORTYPE NEQ 3 
THEN FOR NT1i8815 STEP 1 UNTIL NT2 DO BCLENTI*S5S) $SH(NT1I) 
ELSE FOR NTits20 STEP 1 UNTIL NT245 0G 
BCLINTi*10] $SHENTII3 
UBLKSZIE=NT23 
IF (NT4$#HO2],0533) = 2) THEN % DECIMAL (4"BIT) 
BCLcO]t$=c¢SPB&sNT2 DIV 30 + CNT2 MOD 30 NEQ 0298 &% SEGMTS/BLOCK 
NT101834%14)3 % WORDS/RECORD 
IF HORTYPE GEQ 2 THEN * FIGURE GUT EOF USING B6700 FORMULA 
BEGIN 
STREAM(B820 3 wteHl141)3 
BEGIN SI8SLOC WS DIt= LOC BF DIt=O01443 SKIP 4 DB; 
20CIF SB THEN DStaSET ELSE DSteRESETS SKIP 1 SB)3 
END3 
BVD8tsP3 & BITS CF VALID DATA IN LAST SEGMT 
IF HE2),(8%1) 
THEN IF CANT28#nH(2),0833)])82 
THEN BEGIN NTA98123 NT48233 END 
ELSE IF NT2s4 
THEN BEGIN NTL#=63 NT4$275 END 
ELSE BEGIN NT1%s8s NT43=e5; END 
ELSE BEGIN NT435413 NT4t=y7s END} 
NT2*3((H014],020328)] MOD SPB)XNT1x30) 
+#((BVO + NT4) DIV €4— DIV NT1))3 
NT1S=IF NT2 LSS UBLKSZ THEN NT2 ELSE UBLKS23 
NT2SENT14¢C0H014),020928) DIV SPB)xNT3xC(NTGteHE3),032%16) )3 
ENDS 
BCLE7J3=1IF HDORTYPE GEG 2 THEN (NT24NT4"1) CIV NT4 @& | 
FLSE HL4]3 


$vVOIpT 


30£8%36810]3 


HtalMCSPACE(42 é 
1 38310]3 


?)) 
HtsHa4ices 


B6700 TAPES WITH NEW HEADERS 


$tTHIS CHANGE ALLOWS THE 85700 LIBRARY MAINTENANCE TQ LOAD FILES 
CREATED ON aA B6700 WITH NEW HEADER 


OPTN&sCN3 PROGL29) 8203 
Olt=Loc As ST#sLoc Hs SKIP 1 OBS DStsSET3 


$ SET OMIT = NOT B6500.0AD 


IF B6500 AND (NOT DESTIN,C1%1)) THEN 
BEGIN STREAMCTMPSaTMP$eSPACE(10) D3 
OS3:™32LI7%#86700 TAPE TO TAPE NOT ALLOWED"; 


37240050 


27990410 
27993900 
27994200 
27994210 
27994220 
27994230 
27995310 
27995600 
27996306 
27996505 
27996510 
27996519 
27996520 
27996525 
27996530 
27996535 
27996540 
27996545 
27996550 
27996555 
27996568 
27996565 
27996570 
27996575 
27996580 
27996585 
27996590 
27996598 
27996600 
27996605 
27996610 
27996808 
28070000 
28274200 


20566800 
20566817 
27996675 
28475605 
28475610 
28475620 
28475630 


SPOUT(TMP)3 28475640 
ABORT} 28475650 
ENDS 28475660 
$ POP OMIT 28475665 
SITSSMCPs 421198 
$: LIBRARY MAINT.« CORRECTIONS 
SITHIS CHANGE PERFORMS THE FOLLOWING? 
$1 Ae CORRECTS MISHANOLING GF ESPDISK SEGMENTS DURING ABORT» 
S$! 6. MAKES HEADERS CREATED FROM COPYING 86700 TAPE FILES "NEW" 
st TYPE HEADERS AND 
$1 C, DISALLONS TRANSFERS FROM B6700 SOURCE TAPES DyRECT TO TAPE 
$1 BECAUSE OF POSSIBLE BAD SEGMENTS PER ROW INFORMATION IN THE 
$1 B6700 HEADER. ATTEMPTS AT SUCH TRANSFERS WILL CAUSE ABORTION 
St WITH THE FOLLOWING MESSAGE 3 
$3 "#B6700 TAPE TO TAPE NOT ALLOWED", 
SIWARNINGS IN THE "COPY" CONTROL CARDs THE MAXIMUM NUMBER OF FILES PER 
$t GUTPUT UNIT MAY BE CONFUSED WITH THE <MFID> OF A FILE IF 
$1 THAT SMFIC> IS A NUMBERS IeEs THE <MFID> OF THe FIRST FILE 
$: FOLLOWING THE WORD "COPY" MAY NOT BE A NUMBER« 
$iC PRI 4211) 
$#PATCH NUMBER 122 FOR TSSMCP CONTAINS 4 CARDS. 
CNT SIt=Si+1s Btasls IF SC=" * THEN GO TO CNTSTALLY#803 08291125 


$! BY KFK 

$! DATE 2/28/75 

$t MSA CENTRAL = DETROIT 

$3 THIS PATCH WILL ALLOW FOR BETTER SCANNING OF THE PB KEYIN, 
$: IT IS NOW OK TO HAVE SPACES AFTER A "#" QR "a", 


LURE RECEECCCOSSSCOSSECSCOCCESESASC RCSA SS ESE SSE PERSE EEE RSE E EERE EERE SERS ASSESS AE ES 


S#PATCH NUMBER 123 FGR TSSMCP CONTAINS 27 CARDS. 
STREAMCASSTCHL Ds BIB@TOHL De C4226] me CeeTORHL Oe (4e%6] 40> 
Ote(CMML27)I)5 
BEGIN 
SIts_oc As’ SKIP SB3 
IF SB TREN 
BEGIN 
SKIP 39 SB3 
If SB THEN DS&8s8 LIT*OFAST 
ELSE 
BEGIN 
SKIP SB3 
IF SB TWEN pS#s8 LIT"OSLONW as 
ELSE 
BEGIN 
CcSItslLOc 83 
DSte6 LIT"OEU 4 "3 DSts2 DEC} 
JUMP QUT TO L)3 
DSt#8 LIT"ODISK "3 
L% END 
END 
END 
ELSE 
BEGIN 
SKIP 5 SB} 
DSteLIT"O"3 DSsa7 CHR} 
END} 
ENDS 
$! BY KFK 


20571700 
20571702 
20571710 
20571720 
20571738 
20571740 
20571750 
20571760 
20571776 
20571788 
20571782 
20571790 
20571806 
20571810 
203571820 
20571830 
205718486 
20571642 
20571850 
20571860 
20571870 
20571880 
20571896 
20571900 
20571910 
20571920 
20571930 


$! DATE 3/18/75 

$1 MSA CENTRAL = DETRCIT 

$! THIS PATCH WILL PLACE THe OUTPUT LNIT NAME OF A LIBRARY COPY 
$3 IN WORD 27 OF THE SHEET SO THAT WHEN A TS IS DONE THIS NAME WILL 
$$ Be LISTED ON THE CUTPUT MESSAGE. 


[SRR e PCC RR SOSERTR CEC CCSCCOCCOCR COSC CLO LE RSS EES ESSERE REE REE EERE REESE SEES ESSER SESE 


$#PATCH NUMBER 124 FOR TSSMCP CONTAINS 2 CARDS. 
IF KINDS? THEN FPBCFNUM#3)¢C#PC DUP) 87201581588) 38228510 
&0L643989)3 38228520 
$3 BY KFK 
$t 5/7/75 


$2: MSA CENTRAL * DETROIT 
$3 WHEN USING A MULTI@FILE Pat THE SECOND AND FOLLOWING FILES WILL 
$3 SOMETIMES BE PRINTED SEVERAL TIMESe THIS WAS CAUSED BY A CONFLICT 
S$: IN THE USE OF A FIELD IN THe FPB OF A PROGRAMe THE SAME FIELD 
$t THAT IS USED TO HOLD THE NUMBER OF COPIES CFROM A FILE EQUATE) 
$: IS ALSO USED TO HCLD THE PRN OF THE TAPE, 
PRE PCP EE ROSSASCCCCCSSCLESCSLOSOESCOR TERCERA EERE ERE REESE REESE RRR RRR SER RRS SSE SEAS SS! 
S#PATCH NUMBER 126 FOR TSSMCP CONTAINS 14 CARD, 
PROCVALt#=03 20602860 
$3 BY KFK 
$3 DATE 04/05/75 
$3 MSA CENTRAL © DETROIT 
$1 THIS PATCH CORRECTS AN ERROR IN CONTROLCARU THAT COULD CAUSE 
$! UNEXPLAINED CONTROL CARD ERRORS ANDO SYSTEM HALTS. THE ERROR 
$: WAS CAUSED BY CONTROLCARD NoT RESETTING THE STACK VARIABLE 
$? "PROCVAL" BACK T@ ZERO aFTER A TYPED PROCEDURE WaS CaLLEDe THUS 
$1 THE NEXy TYPED PRCOCEDYRE CALLED WOULD START wiTHK A NON ZERO VALUEe 
\UESESERORERSRPSSECSEESOECELLOCSESERERESE REESE ESE A ERS SERRE SERRE REESE RRR ERASE SESS EE 


S#PATCH NUMBER 127 FOR TSSMCP CONTAINS 3 CARDS.» 


IF (T&8sSCAN) = ENOFI THEN 20608740 
GO TO PACKas 20608760 
$ VOTDT 20608800 


$t BY KFK 
$! DATE 04/08/75 

$: MSA CENTRAL = DETRCIT 

$3 THIS PATCH WILL CORRECT THE WAY CONTROL CaRO HANDLES PACKET 
$3 ERRORS» WITHOUT THIS PATCH THE PACKET WILL ONLY BE FLUSHED 

$: TO THE NEXT END OR WAIT CARD NOT TO JUST THE ENO CARD, 


(URC ECE RO RCASERESE CE SEEE SPECS C CLEC ESE REE SER EEE EERE EERE SERRE REAR ECE S EE RR ESE R ESSE ES 


$#PATCH NUMBER 128 FOR TSSMCP CONTAINS 3 CARDS. 
IF OU GEQ O THEN % WE WAVE AN OUTPUT UNIT 28304590 
IF IU GEQ@ 0 THEN % WE RAVE AN INPUT UNIT 283047008 
IF OU GEQ 0 THEN % WE HAVE AN OUTPUT UNIT 28306500 
$3 BY KFK 


$3 DATE 04/10/75 

$t MSA CENTRAL © DETROIT 

$1 THIS PATCH WILL CORRECT AN ERROR IN THE NEW LIBMAIN/O!ISK PROGRAMe 
$: Ie THERE WAS A “NULL LIBRARY TRANSFER" THEN IF THE INPUT OR OUTPUT 
$1 ynIr IS DISK, WORC ONE OF MEMORY WOULD BE OVERWRITTEN BY A ZERO AS 
$3 THE MCP TRIED TO CLOSE FHE UNIT» QNE OF THE MANY PROBLEMS CAUSED 

$3 BY THIS SITUTATI@N WAS THAT NO USER CODES WOULD BE ACCEPTED BY 

$3: CONTROLCARD BECAUSE THE MCPS USERCODEC STORED IN WORD ONE) IS ZEROs 
$2 NO ERROR MESSAGE WAS GIVEN TO INDICATE THIS CONDITION AND THE SYSTEM 
$! CONTINUEO TO RUN BUT ALL USERCODES WOULD BE ZERO, 

(SRS TRE CLASSE CE RESCUE CCCOCCCAOAASCAOS CESS ACOSO CE SSCA ERE E RE RPE EEE RES EEC RR EER SEES ES 
S#PATCH NUMBER 129 FOR TSSMCP CONTAINS 6 CAROS,. 


SHEATC24)88MCP3 07262100 
SHEATC24]4=MCP3 08276365 
HEADERL2]$=HEADERES ]taMCP3 20289113 
SIt@CARD3 0S:=9 WDS3 20289246 
MCBUF+87)8=MCP3 20289252 
SHEATL 24] $aMCP3 22069212 


$t BY KFK 
$! DATE 04/12/75 

$t MSA CENTRAL © DETROIT 

$: THIS PATCH WILL CAUSE PRNPBT/DISK AND AUTO"LOCNTRL 

$! TO BE EXECUTED WITH THE MCPS USERCODEs THIS INFORMATION 
$t IS PLACED INTO THE LOG FILE. ALSO WITH THIS PATCH 

$i PACKET PAGES WILL BE GIVEN THE MCPYS USER CODE NOT 

$3 THE USER CODE "PACKET", 


GE se ete ee ee ee ee EK EERE EEE EKER REKREEKE KE KANEN ENE EEK 


S#PATCH NUMBER 431 FOR TSSmCP CONTAINS 2 CARDS, 

USERS: IFCTSSSCAN) ZEQUAL THEN GO INCSC3 20605700 
IFCTSSSCAN)SPERIO THEN GO INCSCS 20605702 

$1 BY KFK 


$! DATE 04/40/75 

$3! MSA CENTRAL = DETROIT 

$3 THIS PATCH WILL GIVE A CoNTROL CARD ERROR IF 

$i EATHER THE EQUAL SIGN OR USER CODE IS MISSING ON A 
$3 USER CONTROL CARD, 


PREC PCCE CSAS EE CEE SECS SSSSSCC PSCC CSE ECCS CSC EPEL ESS LEC ESSER EASESCSCSCALEOSECLSSOLE SE 


S#PATCH NUMBER 132 FOR TSSmcP CONTAINS 4 CARD, 
IF FASZ GTR O THEN LIBRARYHELPCS) ELSE IUtsQUss(FPBPTR:20)913 28246208 
$t BY KFK 


$3 DATE 04/10/75 
$! MSA CENTRAL = DETROIT 
$1 THIS PATCH WILL CORRECT a CONDITION IN LIBMAIN/DISK THAT 
$3 WOULD CAUSE A LIBRARY TAPE TO BE CREATED WITR NO LIBRARY 
$: FILES ON ITe THIS TAPE RESULTED ON A NULL LIBRARY TRANSFER, 
$: ALSO CORE SPACE FOR THE BUFFERS IS NOT OBTAINED UNLESS THERE ARE 
$! SOME FILES TO BE COPIED, 
GO eee RHE REE E RANE KAREN REE EKEREEREEKRERARERREEKEERED 
S#PATCH NUMBER 133 FOR TSSMCP CONTAINS 1 CARD, 
DStaBLITtsxOx 4000", DSteBLIT*OPACKET"3 07418700 

$i: BY KFK 
$? DATE 04/12/75 
$? MSA CENTRAL # DETROIT 
$1 WITH SOME SYSTEMS THE FIRST I70 DONE TO A PRINTER FOR 
$3! THE PACKET PAGE WILL CAUSE THE PRINTER TO HANG UP FOR 
$: EXTENDED PERIOD OF TIMEs THIS WAS CAUSED BY DOING AN 
$3 INVALIO PRINTER BPERATIONe THAT IS NO PRINTING AND NO 
$1! PAPER MOVEMENT, 
$3 THIS I/O RESULTED WHEN THE MCP CHANGED THE I/0 
$! DESCRIPTOR FOR THE ABORTED LINE SO THAT THIS LINE WOULD 
$: NOT BE PRINTED, 
$3 NOW A SINGLE SPACE IS GENERATED, 
$3 THE MCP WOULD RECOVER FROM THIS CONDITION 
$3 AFTER ABOUT 20 SECCNDS, 
PRSERESSLESESISCESLISCLESTSECLSC CLC CSAC SAE SALAS SCLECALLITLECTESSEECASCLACE EACLE 
S#PATCH NUMBER 134 FOR TSSMCP CONTAINS 1 CARD, 

ELSE IF Usi8 THEN PCDOIRECTORYSEARCHC@MFIDsF 10.13) 2DEL D3 28446300 
$t BY SR 
$3 DATE 04/03/75 


$3 
$$ 
$1 
$3 
$3 


THIS PATCH CAUSES HEADER SPACE FOR DUPLICATE DISK FILES TO BE 
FORGOTTEN, PREVICUSLYs» IF THE LIBRARY MAINTENANCE TASK INVOLVED 
MANY DUPLICATIONS» THE HEADER SPACE OF EACK DUPLICATE FILE WAS 
LEFT IN CORE EVENTUALLY RESULTING IN A "NO*MEM" CONDITION ON 

MIX ZERQ, 


CSR RCRARECEAISAETE LICL CCIEC CATTRALL LATE RE LESELE LEI TEIL TELL LEELrir 


S#PATCH NUMBER 135 FOR TSSmcP CONTAINS 1 CARD, 


$! 
$1 
a 


$3 


MOVEC1O»BeT142)3 
BY KFK 
DATE 04/22/75 

THIS PATCK CORRECTS a CONDITION THAT WOULD CAUSE aN INVALID 
ADDRESS ON A HALT LOAD IF MEMORY MOD ONE Is OFF LINE, 


41323150 


PRR EC ES RSESSOCRLSELOSESLCCSCCES TERS CESS SELES SLOSS CESS LESCOL EL CSISCCOOSCSLSOOSCC COLL. 2 


S#PATCH NUMBER 136 FOR TSSMCP CONTAINS 25 CARDS, 


Cit 


$ 


$3 


LABEL PEsTEsPA$ 
SWITCH StsPAsPEsTEsITT»USsDeTO»PRe [OTs TMRe ADO WDE 
IF CI42aI4) GE@ €#S) AND [4 LEQ 6 THEN 
BEGIN GO TO S(1445]3 
PAI 
SET OMIT = NOTCRACKETS) 
IF CI%ePSEUDOMIXCPIMIX}2 GEQ 32 THEN 
IGtePACKETACTCI*32]3 
FOP OMIT 
GO TO INITIATE 
Pet 
SET OMIT = NOTCPACKETS) 
IF CI&SsPSEUDOMIXCP1MIX]) GE@ 32 THEN 


BEGIN 
IStePACKETERR(I*32I3 
PACKETERRCI*32)]%eTRUES 
END3 
POP OMIT 
GO Te INITIATE 
TE! 
SET OMIT @ NOTCPACKETS) 
IF CI%ePSEUDOMIXCPIMIX]) GEQ 32 THEN 
T4tsPACKETERRCI*32]3 
POP OMIT 
GO TQ INITIATE 
BY KFK 
DATE 04/22/75 


MSA CENTRAL * DETROIT 

THIS PATCH ADOS THREE NEW TIME FUNCTIONS! 
1) TIMEC#3), WILL RETURN THE CURRENT STATUS OF THE PACKETERR BIT 
2) TIMEC*"4)s THIS FUNCTION WILL SET THE PACKETERR BIT 
3) TIMEC#5), WILL RETURN THE CURRENT VALUE OF PACKETACTe 

THESE THREE FUNCTIONS WERE ADOED TO GIVE a PROGRAM SOME CONTROL 
OVER THE PACKETs NOW A PROGRAM CAN "KILL" A PACKET BY A TIME 
FUNCTION RATHER THAN BY pS®ING ITSELF WITH A RUN TIME ERROR(OLV 
BY ZERO» ETC)» ALSO A PROGRAM CAN "SEE" IF A SISTER PROGRAM 
WAS RUN INTO TROUBLE. AND A PROGRAM CAN TELL HOW MANY VOBS ARE 
RUNNING FROM THE PACKET AT THIS TIMEs 

TIMEC*4) WILL RETURN THE VALUE OF PACKETERR BEFORE IT SETS IT,» 


EXAMPLES? CALGOL) 
IF A LSS 0 THEN % WE RAVE A PROBLEM 


18701010 
18701100 
18710106 
18710206 
18710246 
18710242 
18710244 
18710246 
18710248 
18710249 
18710250 
18710252 
18719254 
18710256 
18710258 
18710266 
18730262 
18710264 
18710266 
18710268 
18710270 
18710272 
18730274 
18710276 
18710278 


$t BEGIN ¥ LETS KILL THIS RUN 

$1 BsaTIMEC@a)3 % KILL PACKET 

$3 GO TO EXIT; % EXIT PROGRAM 

$3 END3 % 

$3: 

$3 AND IN A PROGRAM RUN FROM THE SAME PACKET AT THE SAME TIME 

$3 

$1 IF BOOLEANCTIME(#3)) THEN GO TO EXITS & ERROR JN OTHER PROGRAM, 
$3 


$t IF THE FIRST PROGRAM FINOS A PROBLEM AND WANTS TQ STOP THIS RUN IT 

$: SETS THE PACKETERR BIT THEN THE SECOND PROGRAM WILL "SEE" THIS 

$* AND ALSO GO TO EQuU. 

IR ETTETILTILTTIT TILE TTT TITLE tec ce ee 


S$#PATCH NUMBER 138 FOR TSSMCP CONTAINS 3 CARDS, 


IF ZIPMIX NEG O THEN 20608112 
IF (CT&ePSEYDOMIXCZIPMYX)) GEQ 32 THEN 20608114 
PACKETERR(T#32) 88 TRUES 20608116 


$1 8Y KFK 

$t DATE 04/23/75 

$3 MSA CENTRAL = DETRCIT 

$3 THIS PATCH WILL SET THE PACKETERR BIT IF THERE 
$$ IS A ZIP ERROR IN THE PACKET. 


LHR CRCCC ECP S CS CEOS S ESC OLCES CCCI CECE SEES EEE EERE CEES ACE RRC CS 


S#PATCH NUMBER 140 FOR TSSMCP CONTAINS 22 CARDS, 
BEGIN T#CA INX @540000000000000 )817(8838810)3 02287240 
IF SEPARATE THEN TeT&C(LUNZ221(3284781] 02267245 
ELSE TeT@CLUNZ22)£2884781)3 02287258 
$ VOIDT 12727504 12726500 
$ VOIOT 12789501 12728508 
IF KINO®1 THEN MCALPHA*2]¢PC(DUPsLOD) & 38280500 
CIF SEPARATE THEN 1 ELSE @20)(2784216) 38280608 
ELSE 38280708 
IF NOT SEPARATE THEN . 38281600 
IF ¢TYPE<20) THEN 38281700 
HEADERE73I)*PCDUPsLOD)&C O20) C278 421633 38281800 
MCALPHA]©( *P(DUP))2&(@60000)(CTFI3 38590000 
IF TYPE<20 THEN 38590100 
MEALPHAJ]*(wPCOUP))@CIF SEPARATE THEN 1 ELSE @20)(278421613 38590200 
IF NOT SEPARATE THEN MCALPHAJ@C#PCOUP)I&102724286)3 38592100 
ENDS 38594000 
IF NOT SEPARATE THEN MCALPHAJ©PCOUPsL OD ai le7sa2te)3 38594100 
MEALPHA],C20t1)}e13 38594200 
IF FIBCI4)eCFFIZFIBC2476CCF I THEN 38594300 
IF SEPARATE THEN PCWAITIOC@4000100000.0eU)s DEL) 38741000 
ELSE PCWAITION(C@4002000000s00U)»DEL)3 38741100 
IF NOT SEPARATE THEN PCWAITIOC@400010000050sU)s0EL)3 38742100 

$t BY KFK 


$! DATE 5/7/75 

$t MSA CENTRAL = DETRCIT 

$} THIS PATCH CHANGES THE USE OF THE SPO OPTION "SEPARATE", IT NOW 

$3: IS USED TO CONTROL THE PRINTER SPACEING AROUND THE LABLE PAGE. 

$3 THAT IS IF SEPARATE IS RESET THEN ONLY A DOUBLE SPACE IS DONE 

$: AFTER THE BEGINING LABEL AND BEFORE THE ENDING LABEL. IF IT IS 

$t SET THE OPERATION OF THE PRINTER IS AS IT WAS BEFOREC A FULL 

$3 PAGE FOR THE LABEL RECORD). 

$3 THIS WAS DONE TO HELP WITH THE ENERGY CRUNCH AND PER CUBE REQUEST, 

S#PATCH NUMBER 1441 FOR TSSMCP CONTAINS 452 CARDS. 00000000 


IF SC # """ THEN IF SC # LEFTARROW THEN 
BEGIN SI &= SI + 43 GO TO LS3 ENDS 
IF SC s LEFTARROW THEN GO TO EXITS 


$ VOrOT 06135003 


BEERVUALLARUAAAASAAAAALAAABLAARLULARLSUAAAELA LALLA LABLLALRLLLAATZIVLLXXRVXOBOVS050 
AUG IIIIIIUIUIOIIOIIISII II III IOUIDIIII OD ici airing iit ins itt $08095100 


X* 
X* 
Xe 
%* 
i 
a 
x* 
X* 
g* 
X« 
X* 
%* 
Xs 
z* 
gx 
Ze 
X« 
X* 
Ze 
X* 
i« 
ge 
Ze 
yx 
%* 
Z* 
%* 
+ 2 
t* 
X* 
X* 
%* 
X* 
%* 
X* 
%* 
X« 
X« 
x* 
Xs 
Xw 
X* 
X* 
Xe 
Xe 
Xe 
%* 
xs 
gs 
Xx 
Zu 


PRINTOTITRECTORY 
_s =» @ we *# 82 ee mhlelelelU 


PURPOSES THIS PROCEDURE WANOLES THE PD» EX» LF» LC AND LS 


MESSAGES. ALL MESSAGES ARE FORMS OF THE PD MESSAGE 
EXCEPT FOR CERTAIN DIFFERENCESs THE PD MESSAGE WILL 
LIST THE NAMES OF THE OESIRED FILES AS WELL AS 
CERTAIN PIECES OF INFORMATION IF REQUESTED, 


SYNTAX’ THE FORMAT OF ALL THE KEYIN MESSAGES WITH THE 


EXCEPTION OF THE LF MESSAGE IS AS FOLLOWS! 
<MESSAGE> <FILE SPeCcIFIER> <OPTION*LIST> 
<MESSAGE> #33 PO 4 EX / LOS LS 


<FILE SPECIFIJER> tts <FYLENAME> / <FILENAME> ‘/" 
<FILENAME> 


<OPTION"LIST> 83% cEMPTY> / <OPTION> / <OPTION> » 
<OPTION*"LIST> 


<OPTION> st= RECS / LAST / DATE / SAVE / SIZE / 
CREATOR / SECURITY / ALL 


<FILENAME> ate CFRQOM 1 TO 7 CHARACTERS OPTIONALLY 
ENCLOSED IN QUOTES] / & 


THE SYNTAX FOR THE LF MESSAGE IS3 
LF <USERID> <OPTION@LIST> 


SEMANTICS$ TRE EX» LF» LC» AND LS MESSAGES ARE VUST 


MODIFIED FORMS OF THE FO MESSAGE, THE EX MESSAGE 1S 
THE SAME AS A POD EXCEPT THAT ONLY THE EXPIRED FILES 
ARE LISTEC, THE LF IS THE SAME AS A POD®/= EXCEPT 
THAT ONLY THE FILES BELONGING TO THE SPECIFIED USER 
ARE LISTEDe THE {LC MESSAGE IS THE SAME AS A "PO 
<FILE SPEC]FJER> CREATOR™, THE LS MESSAGE [S THE 
SAME AS “PD <FILE SPECIFIER> SECURITY*s CREATOR, 


THE OPTIONS SPECIFY WHAT ADDITIONAL INFORMATION 
Is TO BE LISTED BESIDES THE DEFAULT INFORMATION: IF 
AN UNRECOGNIZABLE wORD IS ENCOUNTERED IN THE OPTION 
LISTs IT IS IGNORED. THE AVAILABLE OPTIONS ARES 


RECS = NUMBER OF RECORDS IN THE FILE® CSPECIAL LOGIC 
IS INCORPORATED TO THE LIST THE CORRECT NUMBER 
FOR BACKUP FILES). 


0261530 
08095000 


*308095150 
#%08095200 
*%08095256 
*%08095300 
“408095356 
*%08095400 
#308095450 
#%08095500 
*%080955506 
*%08095600 
*%08095650 
*408095700 
#%08095750 
#308095800 
*308095850 
4%08095900 
*%08095950 
*%08096000 
*208096050 
#%08096100 
*%08096150 
*%08096208 
*%408096250 
*%08096300 
*%306096350 
#%08096400 
*%08096450 
*%08096500 
*%08096550 
*%08096600 
*%08096650 
*%208096706 
#%0809675@ 
*%08096800 
*%08096858 
*%408096900 
*%08096950 
*%08097000 
*%08097050 
*%308097100 
*%08097150 
*%08097200 
*408097250 
*%08097306 
*%08097350 
*%08097400 
*%08097450 
*%08097500 
*%08097550 
*#%08097600 
*%208097650 


Zw 
% 
%x 
X* 
g* 
gw 
Xx 
%* 
Zw 
be 
a 
Xr 
%* 
Xs 
%* 
%* 


LAST = LAST ACCESS DATE. 


DATE 


SAVE 


CREATION DATEe 


3 


SAVE FACTOR, 


SIZE = SIZE OF THE FILE IN SEGMENTS, 


CREATOR © PRIVILEGED USERCQDE ASSOCAITED WITH FILE. 
CFOR BACKUP FILES THE LABEL OF THE PRINT FILE 
AND THE NAME OF THE PROGRAM CREATING THE BACKUP 


SECURITY * ACQESS PRIVILEGES OF THE FILE» Iekeos 


IS ALSO LISTEN). 


LOCKEDs UNLOCKED» PUBLIC» PRIVATEs FREEs 


*208097700 
*%08097750 
*%08097808 
*%08097850 
*%08097900 
*%0809795@ 
*%08098000 
#%08098050 
*%08098106 
*%08098150 
#%08098200 
*%408098250 
*%08098300 
*%08098350 
*%08098408 
*#%08098450 


LW ieee a EERE AKER EEE RAE eee eee EO BOI8500 
LU EALLTLTLLVAAVEALAAUVLAULEALULALLALLEAALAATAVTALLLARALTARTTALALTALRAL EATS 2Z0 8098550 
PROCEDURE PRINTDIRECTORY( BUFF )3 


VALUE BUFFS 
REAL BUFFS 


BEGIN 


INTEGER 


I, 
de 
CODE. 


Be Ze ae dE Be de dA 


o 
Be VE DL De BE aa de dE 


INF Os 

LABELREC»s 
USERID» % 
X3 % 


ARRAY 


HORE), % 
XLSTC#15% 


BOOLEAN 


PBOTQOGs &% 


NGRMALLY CONTAINS OPTION NUMBER, 
JUNK, 

= 0 = FO, 

EX. 

LC. 

LF 


i 
2 
3 
4 LS, 


MFID OF DESIRED FILE OR 1 IF Natt, 

FIO OF DESIRED FILE OR wi IF "5", 

ADDRESS OF DISK HEADER, 

MFIO OF LAST FILE FOUND BY SEEKNAMe 

FIO OF LAST FILE FOUND BY SEEKNAM, 

WORK VARIABLE USEO BY SEEKNAM TO SAVE INFO.s 
NA@RMALLY YSED TO SAVE DESTe INDEX, 

BrT MASK FOR OPTyONS SELECTED, 

® ADDRESS OF LABEL RECORD FOR PBD ( IF LC De 
USERIO IF LF. 

JUNK, 


DESCRIPTOR TO DISK HEADER. 
SOME DAY WE MAY ALLOW EXCEPTION LIST. 


TRUE IF SELECTED FILE IS A PBD. 


FOUNDAFILES 2 TRUE IF WE LISTED QUT AT LEAST ONE FILEs 


EX = 


LABEL EXIT»DROPOUTs DUMMY sOPTIONSs 
DEFINE NUMOPTS & 7#3 
DEFINE PD = (CODE = 0)#>» 


(CODE = 1)#, 


08098608 
08098658 
08098700 
08098750 
08098806 
08098850 
08098900 
08098950 
08099000 
08099050 
08099100 
08099150 
08099200 
08099250 
08099300 
08099350 
08099400 
08099450 
08099500 
08099550 
08099600 
08099650 
08099700 
08099750 
08099806 
08099850 
08099900 
08099950 
08100000 
08100050 
08100100 
08100450 
08100200 
08100250 
08100300 
08100350 
08100500 
08100558 
08100600 


LC = (CODE = 2)#» 
LF = (CODE # 3)#>, 
LS = (CODE = 4)#3 


DEFINE 
PRIMARYUSER = HORE 2) #2 % PRIV, USER CODE. 
SAVEFACTOR ws HOROC33.€2:10]4+ % SAVE FACTOR. 
LASTACCESSDATE = HORE3).Ci2s18I#s & LAST ACCESS DATE. 
CREATIONDATE & HDRC3},030318)%» & CREATION DATE. 
GUARDFILEMFID = HORS) #s % MFIp OF GUARD FILE. 
GUAROFILEFID = HORLO)#> % FID OF GUARD FILE. 
EOFPOINTER = HORI7I)#» & EQre POINTER, 
SEGSPERROW zs HDRCB)#, % SEG. PER ROW, 
NOOFROWS ws HOREGI],C4385]4#» % NOg OF ROWS DECLARED, 
HEADERADDRESS # HOReCOFI#; % CORE ADDRESS OF HEADER» 


08100650 
08100700 
08100750 
08100800 
08100850 
08400900 
08100950 
08101000 
08101050 
08101100 
08101156 
08101200 
08101250 
08101300 


SESE RRC RESELLER COL IE SUBROUTINE §$) katedndtkatanwewnanake een gl101356 


SUBROUTINE GETREADY3 
Y Branca eaae sentaawe 
BEGIN 
CODE t= BUFF,(9#6)3 
BUFF $= (TS=SBUFF),£19315)] * 13 
INFO $# 0 @ (LC OR LF OR LS)C4284791) & LSC43847 8473 
END OF GETREADY3 
z 
SUBROUTINE GETFILESPECIFIERS 
% Fawn Fea SH EBB Bane etouwes 
BEGIN 
NAMEIDCMFIDsT)3 % GET MFID (OR USERCODE IF "LF™) 
IF LF THEN USERIO 32% MFIp3 & FIRST THING IS USERID FOR LFe 


IF MFID = “ee " OR Le THEN 
MFID t= * §3 
NAMEIDCFIO#T)3 
IF FID = #/ " THEN & GET FID 
BEGIN 
NAMEIDCF IDs T)3 
NAMEIDCNe T)3 X GET NEXT ITEMe 
END 
ELSE % NO FID SPECIFIED IMPLIES FIO OF "ae" 
BEGIN 
N ta FID; 
FID t= “13 
ENO} 
IF FIDe(686] = LEFTARROW OR LF THEN % NO FIO SPECIFIED 
FID 1% = 13 
é END OF GETFILESPECIFIERS3 
SUBROUTINE PROCESSCPTIONLISTS 
Y Sagas eee NaF an sane nanan wm 
BEGIN 
WHILE N # "e "00 % ACCUMULATE OPTIONS 
BEGIN 


FOR I t= =4 STEP 4 UNTIL CNUMOPTS © 2) DO 
DUMMYS$ IF PC sOPTIONSsIle4e (0D) * N TREN % MATCHES AN OPTION WORD 
BEGIN 


08101400 
08101450 
08101500 
08101550 
08101600 
08101650 
08101700 
0810175@ 
08101800 
08101850 
08101900 
08101950 
08102000 
08102050 
08102100 
08102150 
08102200 
08102250 
08102300 
08102350 
08102400 
08102450 
08102500 
08102550 
08102600 
08102650 
08102700 
08102750 
08102800 
08102858 
08102900 
08102950 
08103000 
08103050 
08103100 
08103156 
08103200 
08103250 


INFO t= INFO OR TWOCT41)3 % SET BIT CORRESPONDING TO OFT08103300 


GO TO DROPOUTS 
END 
ELSE % CKECK FOR "ALL" 


08103350 
08103400 
0814903450 


IF No & “ALL “" THEN % SET ALL OPTION WORD BITS. 08103500 

INFO &2 NOT O3 08103550 

DROPOUT? 08103600 
NAMEIODCNsT)3 & GET NEXT OPTION WORD, 08103650 

IF N & ™y " THEN NAMEIDCNsT)3 & SKIP OVER COMMA, 08103700 

ENDS 08103750 

GO TO EXITs 08103800 

% 08103850 
OPTIONS &83 "RECS ", & OPTION O CINFO,0C4781]) 08103900 
“LAST ", & OPTION 1 CINFO,£4681)) 08103950 

"DATE ", % OPTION 2 CINFO,C4581)) 08104000 

"SIZE ", % OPTION 3 CINFO,C4481)) 08194050 

"SECURIT"s % OPTION 4 CINFO,04381)) 08104100 

"CREATCR™»s % OPTION S CINFO,£4221)) 08104150 

"SAVE "3 % OPTION 6 CINFO,C4131)) 08104200 

EXIT3 08104250 
END OF PROCESSOPTIONLISTS 08104300 

z 08104350 
SUBROUTINE GETSET3 08104400 

% Seeanannsen anawee 08104459 
BEGIN 08104500 

IF EX OR INFO # 0 THEN & WE WILL NEED THE HOR. 08104550 

HOR ts TOQUE & SPACEC30) (CTCI3 08104600 

END OF GETSET3 08104650 
08104700 
BOOLEAN SUBROUTINE WEGOTAFILE3 08104750 

Y Faeawnat SEB w HAE ER ROTA 08104800 
BEGIN 08104850 
SEEKNAMCMFIDsFIDsCoDsEsNyXLSTIS & FIND A FILEs 08104900 
WEGOTAFILE te C # 03 & C IS ADORESS OF DISK READER. 08104950 

END OF WEGOTAFILE3 08105000 

% 08105050 
BOOLEAN SUBROUTINE WEWANTTHISFILES 08105100 

Y Fame SF at at ang BE SFB SHA 08105150 
BEGIN 08105200 
PBOTOG t= ((D EQV "PBD ") = NOT 0 OR (CD EQV “PUD ") 08105250 

= NOT 093 081053086 

IF HEADERADDRESS # 0 THEN # WE NEED THE HEADER» 08105350 
DISKWAITC*HEADERADORESSs302C)s &% READ HEADER. 08105408 

IF LF THEN ®% CHECK T@ SEe IF WE WANT THIS FILEs 08105450 
WEWANTTHISFILE 32 PRIMARYUSER #® USERIO 08105500 

ELSE 08105550 

IF EX THEN 08105600 

BEGIN 08105650 
STREAMCASSCALCULATEPURGEC*SAVEFACTORIsX85(X] )3 08105700 

BEGIN 08105750 

SI t= LOC As’ DS t= 8 OCT 08105800 

ENO} 08105650 
WEWANTTHISFILE %& x > LASTACCESSDATES & TRUE IF FILE EXPIREDO8105900 

END 08105950 

ELSE 08106000 
WEWANTTHISFILE t= TRUE} 08106050 

END OF WEWANTTHISFILES 081064100 

: 08106150 
SUBROUTINE PUTINFILENAME3S 081062006 

XY Faeeaaatans seat ena seem ae 08106250 
BEGIN 08106300 


STREAMCA8=0 $ OD» Es BUFF)S &% SET UP FILE NAME. 
BEGIN 


SI t= LOc C3 

OS t= LIT " "5 

2c¢ S] t= SI] # 13 DOS t= 7 CHR OS ta LIT "/");5 

DOI ts DI = 43 

OS #2 2LIT ™ “3 & NEED 2 SPACES TO ALLOW FOR ARROW, 
A 3s DI3 


ENO; 
_ TF be PS B SAVE CFF DESTe INDEX. 
END OF PUTINFILENAME3 


SUBROUTINE DORECS; 


| Sasa ater wha ww 


BEGIN 


STREAMCAtaIF PBOTOG THEN EQFPOINTERXS ELSE EOFPOINTER*1 #723 


BEGIN 


OS #® 9 LIT "RECORDS: “3 

SI ts LOC A} 

OS :# & DEC} ¥ CONVERT NUMBER OF RECORDS TO DEC, 
A te DI3 % SAVE OFF pI BEFORE ZERQ SUPPRESSINGe 
DI s* DI @ 83 

OS t= 7 FILLS 


ENO3 
T te P$3 & SAVE DESTINATION ADDRESS, 
END OF DORECS3 


% 


SUBROUTINE DODATEORLAST3 


Y Baw aeet ens eee Rae eee 


BEGIN 


STREAM(CX8sEX])3 
BEGIN 


SI 32 X3 
DS t= 8 DECS & CONVERT DATE TO DECIMAL. 


END: 
GIMEDATECEXJe¢LCFJ,°x)s &¥ CONVERT JULIAN DATE TO 6 DIGITS. 
STREAMCASS(IT81) % Xe T)3 

BEGIN 


Lis 


A ¢€ DS $8 10 LIT “ACCESSEDS "3 JUMP OUT TO L1)3 
DS $= 9 LIT "CREATED: "3 


SI ts LOC X3 

SI] t= ST + 23 

3 ¢ DS 3% 2 CHRS OS sa LIT */")3 

DI :* DI = 13 % ERASE THE EXTRA SLASH, 
A t= D013 ®& SAVE DEST, INDEX, 


END3 
T $* P3 % SAVE DESTINATION ADORESS» 
END OF DODATEORLAST; 


% 
SUBROUTINE DOSIZE3 


b 4 Fema gunBnane Renee 


BEGIN 
NT2 
NT! 
FOR 


+= NOOFROWS; % NO, OF ROWS DECLARED, 
$e O05 % NUMBER OF ROWS PROCESSED, 
J $= 4 STEP 1 UNTIL NT2 DO &% CHECK TO SEE IF ROW EXISTS, 


08106350 
08106408 
08106450 
08106500 
08106550 
08106600 
08106650 
08106700 
08106756 
08106800 
08106850 
08106900 
08106950 
08107000 
08107050 
08107106 
08107150 
08107200 
08107250 
08107300 
08107380 
08107400 
0810745@ 
08107500 
08107558 
08107600 
08107656 
08107700 
09107756 
08107800 
08107850 
08107950 
08108000 
03108050 
08108100 
09108150 
08108200 
08108250 
08108300 
08108350 
08108400 
08108450 
08108500 
08108550 
08108600 
08106650 
08108708 
08108750 
08108800 
08108a5¢ 
08108900 
08108950 
08109000 
08109050 
08109100 
08109450 
08109200 


IF HDREY*9] # O THEN NTL #3 NTL + 14 % BUMP UP COUNT, 
STREAMCAS#NTIXSEGSPERROW ¢ T)s 


BEGIN 


DS t= 10 LIT "SEGMENTS! "3 


SI 


LOC A3 


OS t# 8 DEC 
A ts O13 


01 


DI = a3 


DS #3 7 FILL 


ENOD3 


T t= PZ & SAVE DESTINATION ADORESS, 
END OF DOSIZE3 


SUBROUTINE DOSECURITYS 


% Fenaansees eaten ae 


BEGIN 


J ts IF PRIMARYUSER = O THEN O & FREE FILE 
ELSE IF GUARDFILEMFIO = MARK THEN &% UNLOCK OR PUBLIC 


If GUARDFILEFID * MARK THEN 1 % UNLOCKED 
ELSE 2 % PUBLIC 
ELSE IF GUARDFILEMFID < O THEN 3 % PRIVATE 
ELSE 43 % LOCKED 


STREAMCJ & At@GUARDFILEMFID» BtsGUAROFILEFIO» 1T)3 
BEGIN 
ODS s8 10 LIT "SECURITY "3 
Cl ta Cl + v3 
GO TO FREE3 


GO TO UNLCK3 
GO TO PUBLIC} 
GO TO PRIVATE} 


LOCK! DS t= 6 LIT "LOCKED"; GO TO EXITS 
PRIVATESOS © 22 LIT "PRIVATE CSECURED WITH "3 


SI 


2¢ SI 


OJ 
DS 
G0 
PuBLic# DS 
UNLOK$ DS 
FREE? DS 


ts 
t= 
TO 
tx 
ts 
{as 


LOC A3 
te SI + 153 DS t= 7 CHR DS te LIT "/");5 
DI = 43 
LIT "3 
EXIT3 
6 LIT "PUBLIC"s GO TO EXITS 
8 LIT "UNLOCKED" GO TO EXIT; 
4 LIT "FREES 


EXITS J ts D013 


END3 


T 85 RZ % SAVE DESTINATION ADDRESS,» 
END OF DOSECURITY3 


% 


SUBROUTINE DOCREATCR; 


% Fame enn an Bea Faewea a 


BEGIN 


$SET OMIT @ PACKETS 
IF JtsC(PBOTOG AND (E,030918) * 1)) THEN &% REEL 1 OF PBD 


SPOP OMIT 


$SET OMIT = NOTCPACKETS) 
IF Jta(PBOTOG AND CE.C42%6)] = 1)) THEN % REEL 1 OF PBD 


SPOP OMIT 


BEGIN 


IF LABELREC = 0 THEN LABELREC % SPACEC30)3 
DISKWAITC@*LABELRECs 30/HOR[10)42)3 


08109250 
08109300 
068109350 
08109400 
08109450 
08109500 
08109550 
08109600 
08109650 
08109700 
08109750 
081098600 
08109850 
08109900 
08109950 
08110000 
08110050 
08110100 
08110156 
08110200 
08110250 
08110300 
08110350 
08110400 
08110450 
08110500 
08110550 
08130600 
06110650 
08110706 
06110750 
08110800 
08110850 
08110900 
08110950 
08111000 
06111050 
08111100 
08121150 
08111208 
06111250 
08111306 
06111350 
06111408 
06111456 
08111500 
08111556 
08111600 
08111650 
08111700 
081131750 
08111800 
081118656 
08111900 
08111950 
08112000 
08112050 


ND3 


t 
STREAM(CJ & Bt= PRIMARYUSERSOs CtaPRIMARYUSER?» 


DteLABELREC INX las T)5 
BEGIN 
DS :=® 9 LIT "CREATOR: "3 


B¢ DS $8 4 LIT "NONE*S JUMP GUT TO Le 23 


SI t= Loc C3 
SI] t= SI + 13 
DS t= 7 CHR} 
Las 
J ¢ DS te 2 LIT *® C3 
SI 33 03 


2 ¢ ST] tw SJ] + 13 DS $3 7 CHR OS be LIT 14%)5 
Dr t= Dr = 13 OS se 4LIT " OF 

2 ¢ SI te SJ] + 13 OS ta 7 CHRS OS Fu LIT "/")3 
OI $= OF = 43 DS sa LIT 2" 93 


J $3 OF3 
END3 


T 85 PS & SAVE DESTINATION ADDRESS. 


END OF DOCREATORS 


% 
SUBROUTINE DOSAVEFACTOR3 


% Fae sana Beer ena Bawah 


BEGIN 
STREAMCA 2% SAVEFACTOR & 123 

BEGIN 
DS t= 6 LIT "SAVE? "3 
SI ts LOC A} 
OS t= 3 DEC3 
A ts O13 
Ol t# OF - 33 
OS ts 2 FILL3 

END} 


T t= P3 & SAVE DESTINATION ADORESSe 


END OF DOSAVEFACTOR} 


% 
SUBROUTINE DOOPTIONSS 


XY Sau seenteae esate eane 


BEGIN 


FOR I t= 0 STEP 1 UNTIL CNUMOPTS = 1) DO % SEE IF OPTION BIT SETe 


IF CTWOCT) ANQ INFO) 4 0 THEN ZOPTION SELECTED. 


BEGIN 
CASE I OF 
BEGIN 

DORECSS % CASE 0 

BEGIN % CASE 1 
X $s LASTACCESSDATES 
DODATEQRLAST3 

END OF CASE 13 

BEGIN % CASE 2 
x $e CREATIONDATES 
DODATEQRLASTS 

END OF CASE 23 

DOSIZE3 % CASE 3 

DOSECURITY3 %® CASE 4 

DOGREATOR3 % CASE § 

DOSAVEFACT@RS & CASE 6 


"RECS" 
"LAST" 


"DATE" 


"SIZE" 
"SECURITY" 
"CREATOR" 
"SAVE" 


08112100 
08112150 
0a11220€ 
08112250 
08112308 
08112350 
08112400 
08112450 
08112500 
08132550 
08112600 
08112658 
08112706 
08112756 
oaii260e 
08112850 
08112906 
08112950 
08113006 
06113058 
08113100 
08113150 
08113206 
08113250 
08113300 
08113350 
08113408 
08113450 
08113500 
08113550 
08113606 
08113650 
08113700 
08113758 
08113800 
06113856 
08133900 
08113950 
08114000 
08114050 
08114100 
08114150 
08114200 
081414210 
08114250 
08114298 
0811430e 
08114310 
08114320 
08414340 
08114350 
08114360 
08114378 
08114400 
08114458 
08114500 
08114558 


END OF CASES; 08114600 

STREAMCI ¢ T)3 % PUT COMMA AFTER LAST OPTION, 08114656 

BEGIN 08114709 

OS %3 2 LIT » %3 08114750 

I 32 DI3 081134800 

END3 08114650 

T $s P; 08114900 

END OF LOOP TO PROCESS OPTIONS3 081149506 

END OF BOOPTIONS3 08115000 

% 08115050 

SUBROUTINE MAKETHEMESSAGE3 08115100 

Y Sawnaatsas seaetaaneangton 08115156 

BEGIN 08115200 

IF FOUNDAFILE THEN % WE NEED A BUFFER, 08115256 

BUFF %# SPACE(30)3 08115300 

PUTINFILENAMES 08115350 

DOOPTIONS3 08115400 

STREAMCT)3; % PUT IN THE LEFT ARROWe 08115450 

BEGIN 08115500 

OL s= DI #23 08115550 

DS s# LIT LEFTARROWS 08115600 

END3 08115650 

END OF MAKETHEMESSAGE3 08115700 

% 08115750 

SUBROUTINE COMPLAIN3 08115800 

XY Veaneasane scannmanas 08115850 

BEGIN 08115900 

STREAMCBUFF )3 08115950 

0S 33 8 LIT * NULL "3 % ORIGINAL INPUT IS AT BUFF # 1, 08116000 

SPOUTCBUFF 23 08116050 

END OF COMPLAIN; 08116100 

x 08116150 

SUBROUTINE FORGETEVERYTHINGS 08116200 

% Ramanan Hannan awa & 08116250 
IN 6 

BEF} HEADERADDRESS # OQ THEN FORGETSPACECHEADERADDRESS)3 Bgiiesso 

IF LABELREC # 0 THEN FORGETSPACECLABELREC )3 08116400 

ENO OF FORGETEVERYTHING} 081164506 

Gettakaektkakekeateeee 5S TAR T OF CO DE) kkktikataatcake nee 08116500 

GETREADY3 08116550 

GETFILESPECIFIER3 08116600 

PROCESSOPTIONLIST3 08116650 

GETSET} 08116700 

WHILE WEGOTAFILE DO 081167586 

IF WEWANTTHISFILE THEN 08116800 

BEGIN 08116650 

MAKE THEMESSAGE3 08116900 

SPOUT (BUFF )3 08116950 

FOUNDAFILE %2 TRUES 08117000 

ENDS 08117050 

IF NOT ROUNDAFILE THEN COMPLAINS 08117108 

FORGETEVERYTHING3 08117150 

END OF PRINTOIRECTORY3 08117208 

$t DATE 9710/75 99990000 

$? BY yTC = MSA CENTRAL 99990100 

$1 THIS PATGH REWRITES THE PRINTOIRECTORY PROCEDURE. MUCH NEEDLESS 99990200 

$3 COpe HAS BEEN ELIMINATED (THE PROCEDURE IS 30 WORDS SMALLER) AND 99990308 


$t SOME NEW OPTIONS ARE AVAILABLE. THE SYNTAX FOR ALL MESSAGES 


$t HANDLED BY THIS PROCEDURE (PDsEXeLF sb Cs AND LS) HAS BEEN CHANGED 


$§ SLIGHTLY IN THAT A SLASH IS NOW REQUIRED BETWEEN THE FIRST AND 
$t LAST NAMES OF A FILE CA SPACE WOULD SUFFICE PREVIOUSLY) ANDO 


$3 MULTIPLE OPTION WORDS MAY BE SPECIFIED AFTER ANY OF THE MESSAGES, 


$$ In ADDITION» FOUR NEW OPTION WORDS HAVE BEEN ADDEDe wSAVEN 

$1 LISTS OUT THE SAVE*FACTOR OF THE FILE» "CREATOR" LISTS OUT THE 
$$ PRIVILEGED USERCODE ASSOCIATED WITH THE FILEe "SECURITY" 

S$? LISTS OUT THE ACCESS RIGHTS OF THE FILEs IeEs LOCKED, UNLOCKED, 
$1 PUBLIC» PRIVATEs OR FREE» AND "ALLY LISTS OUT ALL OF TKE JNFORe 
$8 MATION AVAILABLE FROM EACH oF THE INOIVIDUAL OPTIONS, 


$? 
$? SoME EXAMPLES OF THE MESSAGES THAT ARE POSSIBLE FOLLOW, 
$3 

$t PO A/B RECS*#DATESSIZE 

$? LF SITE ALL 

$3 LCP8D RECS 

$3 


$¢ CONSULT THE HEADING BLOCK OF THE PRINTDIRECTORY PROCEDURE 
$§ FOR ADDITIONAL INFORMATION, 
S#PATCH NUMBER 142 FOR TSSMCP CONTAINS 1 CARD, 
REAL NEUZ DEFINE USUT#*UARYUTHONEULINEU SU BeNEU 2RNEUSNEU BS 

$? DATE 10/1/75 
$t BY JTC = MSA CENTRAL 
$$ THIS PATCH C@RRECTS A PROBLEM IN SHAREDISK MCPS 
$1 WHICH COULD CAUSE INVALID LINK ERRORS» THE GLOBAL 
$$ VARAIBLE AVS WAS BEING USED INCORRECTLY IN THE 
$t PROCEDURE USERDISKSPECIALCASE.s 
S#PaTcH NUMBER 143 FOR TSSMCP CONTAINS 5 CARDS. 

LABEL PEs TEsPAelL3 

SWITCH S t® LiLsPAsPEs TEs I T»USs0sTOsPReIOTs TMRe ADs WS 
C13 IF (14884) 2 (#6) AND I4 & 6 THEN 

BEGIN GO TO SCI4+6]3 
LL? 14 t# LOGLINE,C4088]; GO TO INITIATE} 
$3 DATE 9/23/75 
$3 BY JTC = MSA CENTRAL, 
$t THIS PATCH IMPLEMENTS TIME(C #6) WHICH RETURNS THE 
$3: LOGICAL LINE NUMBER FROM WHICH A PARTICULAR PROGRAM 
$3 IS RUNNING, BATCH PROGRAM WILL ALWAYS RETURN A ZERO, 
S#PATCH NUMBER 144 FOR TSSMCP CONTAINS 7 CAROS,. 
PROCEDURE FORMTIMECWsT)3 VALUE WeTs REAL We Td FORWARD 


CS+24CMCBUF INX Z]eCdsS5]e">"))(68398210I3 


FORMTIMECENTL Js XCLOCK*PCRTR) 3 


STREAMCN2 8S yeClLisSxQ™YsAAIsBUF INX ZesBB 8% NT4» 


BUF S=(BUFCRII 3 


BEGIN OS te 7 LIT * "3 SI $3 LOC BBs DS t= 8 CHR; 


DS t*® 9 LIT *™ "3 ST bm AAS 
$* DATE 10/20/75 
$1 BY JTC = MSA CENTRAL, 
$? THIS PATCH ADDS THE TIME OF DAY TO EACH MESSAGE aS IT IS 
$$ ENTEREO INTO THE PACKET PAGE, 
S#PATCH NUMBER 145 FOR TSSMCP CONTAINS ? CARDS 
LABEL IPCERR3 


INITs SLOWS C3942C352CI62 C37 *TWeT We C402 C412 TPCERR» 


IPCERRs TPCERRs IPCERR»s IPCERR»IPCERRe THe SLOWS 
IPCERR? TERMINATE CPIMIX)3 
TERMINALMESSAGE (9693 


99990400 
99990500 
99990600 
99990700 
99990800 
99990906 
99991008 
99991100 
99991200 
99991300 
99991400 
99991508 
99991600 
99991700 
99991800 
99991900 
99992000 
99992100 
99992206 
99992300 
00000000 
06351055 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
00000000 
18701010 
18701100 
18710100 
18710200 
18710236 
99990000 
99990100 
99990200 
99990300 
99990400 
00000004 
00480010 
02173296 
02173297 
02173300 
02173301 
02173305 
02173306 
99990000 
99990100 
99990200 
99990300 


19504100 
19308400 
19508200 
19575000 
19575100 


“BINVALD"s "8 IPC Cis 
"2OMeyee™> 
$: BY JTC = MSA CENTRAL» SOFTWARE FLASH 161 


‘SRE ESLER OSES SSE SELES ECS OCOC SEES E SEES EEE RECS LES EC ECS CC ESC OCE CESSES ESE. SS 


S#PATCH NUMBER 146 FOR TSSMCP CONTAINS 41 CARDS. 


LABEL EQF, 
DEFINE H = HEA 

$ VOrOT 384770014 
BE 


EN 
$! DATE 1419/76 
$! BY JTC = MSA 
$t THIS PATCH CO 


CLEANUPS 
DER#; 


GIN % COMPILE TO LIBRARY 

FOR T1 8# 45 STEP 1 UNTIL 22 DO % COPY PROC» I/O, 
SEGOCT1] &* SKELETIJ$ % STACKs COMMONs PRIQee ETC. 

IF (T2 ¢@ SKELC13)) # O THEN % LABe EQN, ENTRIES 
BEGIN 


41445500 
41445600 


00000000 
38363000 
38385700 
38446500 
38447000 
38447500 
38448000 
38448500 
38449000 


SKELC1i3) ts O03 & SO TERMINATE WONT SEE ESPOISK STUFF 38449500 


CISKWAITCSKEL CCF Js30eT3)% & REWRITE SKEL, SHEET 
SEGOL15) t2 HE7)] + 143 & ADDRESS OF 1ST ENTRY 
oC 
BEGIN & COPYING LABEL EQNe INFO INTO CODE FILE 
IF DISKADDRESSC(CMIDs FID» FPBLCFNUM43)» 
CTLSBHU7I8 ahC 7] 44020) = O THEN & NO ROOM 
BEGIN 
DO 
BEGIN 
DISKWAITC™SKEL, CCR IJs302T2)3 & GET SEG. 
FORGETESPDISK(T2)3 
ENO 
UNTIL (T2 &* SKEL C291) = 03 
FILEMESSCe"DISK *,"OVRFLOW*sMI DOF IDs 
ReOeC)3 
ENO 
ELSE 
BEGIN 
DISKWAITCPSKEL,(CF)s30e2T2)3 % GET SEG, 
FORGETESPDISK(T2)3 
IF ¢(T2 &* SKELCL29)) 4 O THEN & MORE OF EM 
SKELC29) 8* T1 + 13 & ADDR, IN CODE FILE 
DISKWAITCSKEL SC CF)s30-T8eCKCTi OIV HES) 
410] * Ti MOD KL8I]))93 
END 
ENO 
UNTIL T2 = O38 
END OF PROCESSING LABEL EQUATION INFOQ; 
SEGOL6é] t= NABSC*PCDUP))3 & NEW FORMAT SEG, ZERO 
MO4),C1081] t 43 % MARK AS PROGe FILE 
DISKWAITCSEGOsCCF)230sH(10])3 % REWRITE SEG. ZERO 
D OF COMPILE To LIBRARY PROCESSING3 


CENTRAL, 
RRECTS AN UNLIKELY ERROR IN DISKCLOSE WHICH 


$3 CAN CAUSE ESP DISK SEGMENTS TO BE LEFT IN USE IF A COMPILER 


$1 GETS OS*ED FO 


R DISK OVERFLOWe IN ADDITION» THE PATCH USES 


$i THIS OPPORTUNITY TO REWRITE THE EXCEPTIONALLY BAD LOGIC 


$t CONTAINED IN 
S#PATCH NUMBER 1 


THIS ROUTINE, 
47 FOR TSSMCP CONTAINS 2 CARDS 


UPTIMEQUTCMIX)? 
DOWNTIMEQUTCMIX)3 


$1 BY JTC = MSA 


CENTRAL» SOFTWARE FLASH 162 


38450008 
38450500 
38451000 
38451500 
38452000 
38452500 
38453000 
38453500 
38453600 
38453700 
38454000 
38454108 
38454500 
38455000 
38455500 
38456000 
36456500 
38457000 
38457500 
38458000 
38458500 
38459000 
38459800 
38460000 
38460500 
38461000 
38461506 
38462000 
38462500 
38463000 
384635090 
38464000 
99990000 
99990100 
99990200 
99990300 
99990406 
99990500 
99990608 


24035300 
24096800 


ER EP ESE CESSES SCS EES SCO LESE STS CESSES CEES LESS CELE CELOPECCCLCASCLACCCLLL LS 


S#PATCH NUMBER 148 FOR TSSMCP CONTAINS 1 CARD 
TEMP + F @ K CCTFI3 

$t BY JTC = MSA CENTRAL» SOFTWARE FLASH 163 

$$ SEE ALSO DREXEL Uy PATCHES 60126625748 


LER EC ESE RCS E CE SESS EPSCESCCCLECIESCCOE CSCC ERE RSAC CCELESALECSCVAESSLALALASSL ESE.) 


S#PATCH NUMBER 149 FOR TSSMCP CONTAINS 7 CARD, 
DS tm 8 DEC; DS ts 2 LIT * oM% 
DI ts DI = 403 OS t* 7 FILLS 
SI t= €—3 DS #8 10 CHR 
BEGIN SIs#eLOc as’ OSteg DEC OSte2 LIT * o%3 
ODI%=2=O019103 OStaS FILLS AteOI;3 
DiseTs SIssA3 DSse10 CHR} 
TWXOUTCTs 10s CR CCTFIRGC2847481)-R6)3 
$$ DATE 2/11/76 
$: BY JTC = MSA CENTRAL 
$t 


$1 THIS PATCH CAUSES AN EXTRA BLANK TO BE TYPED OUT AFTER THE SEQUENCE 


$3 NUMBER IS SEQUENCE MODE. THIS IS CONVENIENT FOR LINING 
$t INPUT WITH PREVIQUSLY PRINTED GuTPuT SINCE TRE LIST AND PRINT 
$1 COMMANOS OF CANDE PRINT AN EXTRA SPACE AFTER TWE SEQUENCE NUMBER, 


18273055 


00000000 
03733500 
03734008e 
03735000 
19559120 
19559140 
195591668 
19559200 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 


SE ee EER EE EEE EERE EEE aH MEN EERE EE AEE KEE ENIOOIIGIOOS 


S#PATCH NUMBER 150 FOR TSSMCP CONTAINS 12 CARDS, 


00000000 


STREAMCLOFLGEAaLONGCARRIAGELCS1 Io VieCVEsGETAREACO) 419303826100 


BEGIN 
DS t= 6 LIT "DELS<s"; 
LCFLG (pS $3 3 LIT "«"); 
DS t* LIT LEFTARROW 


END3 
STREAMCECELG!SLONGCARRIAGELSS jaVtmVed )3 
BEGIN 
OS ts 3 LIT "sane"; 
LOFLG CDS t=» 3 LIT "<")3 
DS t= LIT LEFTARROWS 
END3 
$t DATE 2/11/76 
$$ BY JTC = MSA CENTRAL 
$t 
St THIS PATCH ADDS an EXTRA DELAY FOR TERMINALS WITH LONG CARRIAGES 
$: AFTER THE CARRIAGE RETURN TYPED OUT WHEN THE USER TYPES A 
$! LEFTARROWs THIS PREVENTS THe BEGINNING OF SEQUENCE NUMBERS 
$1 FROM BEING LOST IN SEQUENCE MODE, 
S#PaTCH NUMBER 151 FOR TSSMCP CONTAINS 38 CARDS. 
eI TSALLBATCH @# TOGLE.,Ci6i:ils 
ENB 
ELSE % ITS BELOW THE FENCE 
IF ITSALLBATCH THEN & WE WILL WAIT AWHILE 
BEGIN 
TANKSCLL] t* NABSC(T)3 
CLICK t= CLOCK + PCRTR) * 1283 % 2 SEC, 
SLEEP(020)3 % WAIT FOR TIME OUT. 
GO TO STARTS & TRY AGAIN, 
ENDS 
IF PCOsRDS) < FENCE THEN &% BELOW THE FENCE 
BEGIN CLICK t= CLOCK # PCRTR) # 1023 + 10233 & 34 SEC, 
COMPLEXSLEEPCINPUTANKE TI ¢INPUTN OR TERMSETCPIMIX) 3 
END ELSE 


03826200 
03826300 
03826406 
03826500 
03826600 
03900000 
03900100 
03900200 
03900300 
03900400 
03900500 
99990000 
99990100 
99990200 
99990308 
99990406 
99990500 
99990600 
00000000 
0008178§ 
03147006 
03147400 
03147200 
03147306 
03147400 
03147500 
03147600 
03147706 
03147800 
03299700 
03299730 
03299750 
03299786 


IF CMEMCMIXS0J]],C0CF] 2 FENCE OR ITSALLBATCH THEN 
IF T < #20000 OR T > 8100000 THEN 
SUBROUTINE CLEARALLTANKS3 
BEGIN CLEARTANK(LOGLINEs0)3 
TANKSCISSLOGLINE, C4028) )8 ac PC OUP) &OCCTCI3 


IF WORKING THEN % MAKE SURE HARRY ISNT 
IF HARRYSTA = I THEN % DIODLING OUR LINE 

COMPLEXSLEEPCNOT WORKING OR HARRYSTA # 1)3 
CLEARINPUTANKS 


TANKOKEE} te O03 
ENO OF CLEARALLTANKS$ 
IF LOGLINE,£33%7} # O AND PiMIX # CANDYINX THEN 
CLEARALLTANKS3 
I ts 3 & RE*INITIALIZE FOR CORE SEARCH 
CLEARALLTANKS3S 
SVOINT 14367035 
BELOW t= (S£2),06810)"5) OR ITSALLBATCH; 
IF FENCEs(32%46) #¢ FENCE OR FENCE < 8192 THEN FENCE $= 163843 
IF J < 7 THEN & NEED TO FIND HIGHEST ON LINE MOD BELOW FENCE 
+(CHUNKMAX#0) % IN CASE ITS ALL BATCH 
IT CHUNKMAX4( CHUNKMAX80 )3 
IF CT&amCaei93.032816)) * FENCE AND T # O THEN 
2 @20000 AND T S$ @100000 THEN FENCE #8 T3 
ITSALLBATCH t= FENCE 2 #600003 
$! DATE 2/11/76 
$1 BY JTC = MSA CENTRAL CPATCH RECEIVED FROM STEVE KELLEY & LSSG UeKe)? 


$1 THIS PATGH ALLOWS THE FENCE TO BE MOVED TO THE TOP OF MEMORY,» 
S$: SUPPRESSING ALL SWAPINGe ALL JOBS ENTERED ARE TREATED AS BATCH 
$1 JOB © REGARDLESS OF RUN» EXECUTE OR COMPILE, 


$3 CANDE PROGRAMS USING TERMINALS MAY RUN WITH TRE FENCE AT 32K» 
$t HOWEVER» THEY WILL NOT BE SWAPPED AND THE JOBS MIGHT BE SCHEDULED 
$$ SINCE ALL JOBS ARE TREATED AS BATCH, 


$3 If IS INTENDED THAT ONLY LIMITED TERMINAL USAGE OCCURS IF THE FENCE 
$: IS AT THE TOP OF MEMORYs SINCE REMOTE JOBS WILL TIE UP CORE WHEN 

$8 WAITING FOR TERMINAL INPUT OR WHEN STOPPED OR WAITING FOR EXTERNAL 
$t CONDITION SATISFIED, 


$1 THIS PATCH WILL GAUSE THE TSS MCP TO SIMULATE THE 
$1 BATCH» OR DC» MCP WHILE MAINTAINING TRE TSS LOGGING 
$t FACILITIES. THIS PATCH WILL NOT CAUSE REENTRANCY TO 
$3 OCCUR. 


07500000 
09946000 
14351440 
14351445 
1435145@ 
14351455 
14351460 
14351465 
14351470 
14351475 
14351480 
143605816 
14360526 
14360530 
14367024 
14367022 
201639200 
44104000 
44109900 
44151050 
44163100 
44191020 
44191040 
44420000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991208 
99991300 
99991400 
99991500 
99991600 
99991700 
99991800 
99991906 


SERENE EE REE REN Eee ee kt keke e999999909 


S#PATCH NUMBER 152 FOR TSSMCP CONTAINS 5 CARDS. 

SPACESTACKSIZE = 85%} 

SPACESTACKSIZE = 10583 
ARRAY SPACESTACK(E*)3 
$VOIDT 

I $™ SPACESTACKSYZES T 83 PC,SPACESTACK)3 FIXs % 

$? DATE 3/1/76 
$! BY JTC = MSA CENTRAL 
$3 
$$ THIS PATCH INCREASES THE SPACE STACK SIZE FROM 80 TO 85 WORDS TO 
$t PREVENT A POSSIBLE STACK OVERFLOW IN THE SPACE STACK, THE OVERFLON 
$t OCCURRED WHEN OLAY CALLED DISKSPACE AND DISKSPACE FORKED 


00000000 
00013870 
00013890 
00013916 
23399000 
44173100 
99990000 
99990106 
99990206 
99990300 
99990400 


99990500 


$% GETMOREOLAYDISK FCR A PROGRAM RUNNING UNDER THE FENCEe OCCASIONALLY» 99990600 
$: WHEN FORK WENT TO GET A FIVE WORD AREA TQ BUILD THE INDEPENDENT 99990700 
$s: RUNNER ENTRY IN ThE FORKQUE THERE WERE NO FIVE WORD AREAS AVAILABLE 99990800 
$! AND IT wAS NECESSARY TO BREAK UP ONE OF THE LARGER AREAS. THIS 99990900 
$: INVOLVEO CALLING FORGETAREA AND IT WAS THIS CALL ON FORGETAREA 99991000 
$$ THAT OVERFLOWED TRE STACK, 99991100 
Soe AHR REE EE EE REN EERE RAH EH AKER ERE EERE Ee eee EEOOIIIIOD 
$#PATCH NUMBER 153 FOR TSSMCP CONTAINS 43 CARDS. 00000000 
FIELO MAYBEWORKEDON » C781)3 21015100 

LABEL STARTS 21015200 

X te @1043 % THIS IS THE CODE WE WILL PASS TO 21915400 

% GETSPACE THE FIRST TIME, IT REQUESTS 21015506 

% OVERLAY MEMORY FOR THE MCP AND THAT 21015600 

% We WANT TO BE RETURNED TO ON A NO 21915700 

% MEMe 21015600 

START? 21015906 
IF NOT MCS) eMAYBEWORKEDON THEN & WAIT TILL OTHER GUY IS 0021016000 
SLEEPCEMES1920 & TRUE CMAYBEWORKEDON) 23 21017000 

BEGIN 21918100 

Z t= Y.€8810)3 % SIZE OF PROCEDURE IN WORDS 21018200 

MCS],MA¥YBEWORKEOON ta FALSES 21918300 

% 21918400 
x NCW WE WILL ATTEMPT TO GET SPACE FOR THIS MCP PROCs 21018500 
% IF WE FAIL WE WILL WAIT FOR A SECOND ANO THEN TRY 219148600 
% AGAINe THIS ENSURES THAT IF WE GET DS*ED WHILE 21018700 
z SLEEPING WAITING FOR MEMORY WE WILL NOT LEAVE THE 21018808 
x TCGGLE LOCKED UP FOR THIS PROCEQURE, 219018900 
% 21919000 
IF CTIsGETSPACE(2Z2655X)42) = 2 THEN X NO MEM 21019108 

BEGIN 21019200 

MCSJeMAYBEWORKEOON $3 TRUES 21019300 

X-C 4684] $8 TRUES % DONT PUT OUT MESSAGE 210149408 

SLEEPCECLOCKIJ»NOT CLOCK)S & WAIT A SECOND 21019500 

GO TO STARTS 21019600 

ENDS 21920008 

MES] ts (¥PCDUP)) & T COTC)] & TRYE CMAYBEWORKEDONJS 214024000 

x 24304106 
x FIELDS CF SAVEF PARAMETER 24304110 
% 24304120 
FIELD 24304130 

x NEEDCLAY 2 09339 %& THIS FIELD IS NON ZERO IF 24304146 
% REQUESTOR WANTS OLAY SPACE24304150 

TYPENCMEMANDRETURN = 45204 & IF SAVEF,C45802) # 3 THEN24304470 

sJUSTRETURN * 46101 % GETSPACE WILL TYPE OK MEM24304188 

»GETFROMFRONT @ 47804 & %IF SUCESSFULL,. 24304190 

; 24304200 
STREAMCX83(MESS#0 OR SAVEF,C4582)33)5 MIXs SIZE» 24305700 
MESSSaMESS&eGETAREA(O))3 24305750 

IF SAVEF,«JUSTRETURN THEN PCO*RTNDS 24315000 

IF SAVEF e TYPENOMEMANDRETURN THEN PCO*RTN)3 24317000 

IF MESS#0 OR SAVEF*(4592) * 3 THEN TELLSPO3 24401000 

$1 DATE 3/1/76 99990000 
$: By JTC = MSA CENTRAL 99990106 
$1 99990200 
$3 THIS PATCH WILL PREVENT A PROGRAM FROM BEING OS*"ED WHILE 99990300 
$t TRYING TO BRING IN AN MGP PROCEQURE. THIS USUALLY LEFT THE TOGGLE 99990400 
$: FOR THE PROCEDURE LOCKED UP §$O THAT THE PROCEDURE WAS PERMANENTLY 99990506 


PREVENTED FROM BEING BROUGHT INTO COREe THIS CONDITION OCCURRED 
WHEN THE PROGRAM WAS SLEEPING WAITING FOR A NO MEM CONDITION TO 
CLEAR UP SO THAT THE PROCEDURE COULD BE BROUGHT IN AT THE SAME TIME 
THAT THE OPERATOR DS*ED THE PROGRAM, IF THE NO MEM CONDITION DID 
NOT CLEAR UP IN ABOUT 8 SECONDSs NSECOND WOULD FORCE 

THE STACK TO BE DS#E0». NOWs ESPBIT WILL HANDLE THE NO MEM 

CONDITION HIMSELF IN SUCH A WAY THAT NO TOGGLES WILL BE LOCKED 
SHOULD THE QPERATCR OS THE PROGRAM WHILE IT IS TRYING TO BRING IN 
THE PROCEOUREs 


IF A "NO MEM= MESSAGE IS DISPLAYED BY ESPBIT UNDER THE 
ABOVE CONDITIONS» THERE WILL NOT BE A CORRESPONDING 
"0K MEM@= MESSAGE, 


99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 
9999130 
99991408 
99991500 
99991600 
99991706 
99991800 


Go EEK EERE EEN EEN WRENS ETHER KEK HHOOGOIIIOOG 
S#PATCH NUMBER 154 FOR TSSMCP CONTAINS 30 CARDS, 


x 


+ 4 


IF WE REACH THIS POINT THEN THIS JOB HAS USED 
UP ITS TIME SLICE CEITHER PROCESSOR QR 1/0) OR 


$VOINT 48038401 


BE HE DE Fe BE FE FE BE DE DE BE 


$1 
$3 
$! 
$3 
$3 


THIS JOB HAS BEEN DOING EXCESSIVE OVERLAY AND 
DESERVES ANOTHER CHUNK OF MEMORY. IF THE 

PROGRAM HAS USED UP ITS TIME SLICE» WE WILL 

SWAP IT QUT IF THERE IS SOME OTHER PROGRAM THAT 
IS READ¥ TO RUN AND CAN USE THIS GUYS CHUNKS. IF 
TRE PROGRAM HAS BEEN DOING EXCESSIVE OVERLAY AND 
TKE PROGRAM HAS ROOM FOR EXPANSION AND DIDNT USE 
A WAX CORE CARDe WE WILL SWAP IT QUT 

AND SWAPPINGIO WILL ARRANGE TO OBTAIN ANOTHER 
CHUNK» 


IF PCO»s»ROS) > FENCE THEN & SWAP JOB 
BEGIN 
FOR NT2 s@ SCCPIMIX) STEP 1 UNTIL LCCPIMIX] 00 


IF ACTIVECNT2) > 1 THEN % SOMEQNE CAN USE THIS 


BEGIN % CHUNKe 
SWAPCTIMEND#1)3 %& 
Go TO RETURNS 
END$ 
IF QLAYCTREPIMIX] < 0 THEN &% EXCESSIVE OVERLAY. 
IF DONTEXPANDBITSCPAIMIX] & QO THEN &% EXPANDABLE 
BEGIN 
SWAPCTIMENDs1)3 % 
GQ TO RETURNS 
END} 
END; 
DATE 3/12/76 
BY JTC = MSA CENTRAL 


THIS PATCH PREVENTS A JOB FROM BEING SWAPPED OUT TO OBTAIN A NEW 
CHUNK WHEN THE JOB CANNOT BE EXPANDED, 


00000000 
48038120 
48038136 
48038140 
48038149 
48038150 
48038160 
48038170 
48036180 
46038190 
48038206 
48038210 
48038220 
48038230 
48038240 
48038250 
48038260 
48038270 
48038280 
486038290 
48038300 
48038318 
48038320 
48038330 
48038340 
48038350 
48038360 
48038370 
48038388 
48038390 
48038400 
99990006 
99990100 
99990200 
99990300 
99990400 


SER ERE NEE RHEE ERNE AERA NER EKER KR KE HEHHEOI_I_IIONS 


S#PATCH NUMBER 155 FOR TSSMCP CONTAINS 261 CARDS. 


BEGIN STREAMCASSTYPEDSPACEC1OsSPOUTMSGAREAV) § 93% 


DEFINE 


TYPEDSPACECTYPEDSPACE1*TYPEDSPACE2) »# 
(GETSPACECTYPEDSPACEL»TYPEDSPACEZs0)+2)# &% 


*ARRAYDESCCARRAYDESCi»ARRAYDESC2) * 


00000000 
00005230 
00017005 
00017010 
00017015 
00017020 


CEMCGETSPACEC ARRAYDESC1, ARRAYDESC2s0)42]) & ARRAYDESC1 CSIZE))# %00017025 


» SAVEARRAYDE SCC SAVE ARRAYBDESC1»SAVEARRAYDESC2) * 00017030 
COMCGETSPACECSAVEARRAYDESC1sSAVEARRAYDESC2s1)+42)) 00017035 

& SAVEARRAYDESC1 CSIZE])4# %00017040 

3 00017045 


RELL ALGERLTASTARALLELAELSTALLEELAVLABABLLELEATARALLAVALARTARAARALAFSVYKUXSZZO0017100 
RAO H ERE EEE EERE EE ENE eRe ae ee HE OOOL7 110 


x* ¥400017120 
%* MEMORY AREA TYPES STORED IN 386 FIELD OF FIRST MEMORY *400017130 
x LINK OF ALL MEMORY AREAS *400017140 
%* *400017150 


RAW eee EERE eee EERE EE ee eth ek eke eet 500017160 
RERLELARAATALALARLALATLELAALL ALL AVAARSARLAARAARLALAAALALAA LAT LAREAAZLATKXWROO0I7170 


DEF INE 00017180 
UNKNOWNAREAV x O#8 % 00017190 
sCODEAREAV =z 4# % 00017200 
»DATAAREAV = 28 % 00017210 
elLQBUFFERAREAV = 388 % 00017226 
»s ALGOLFIBAREAV w 4# &% 00037230 
sINQUIRYBUFFAREAV = 524 % 00017240 
sCOBOLFIBAREAV = 64 % 00017250 
eTYPETINTAREAV ew 7# & 00017260 
epDISKHEADERAREAVY = 8% % 00017270 
»MAINTBUFFAREAV = O# % 00017288 
eLBLEQNAREAV = 108 % 00017296 
» SEGZEROAREAV = 4114 % 00017300 
»STACKAREAYV s 128 % 00017310 
a TYPEL3INTAREAV = 13# % 00017320 
as SCRATCHDIRAREAV «© 148 % 00017330 
sOPSETAREAV = 152 % 00017340 
sOIRTORAREAV w 164 % 00017350 
» SPOUTMSGAREAV = 1{F# % 00017360 
s UVROWAREAY = 168 % 000137370 
s JARROWAREAV = 198 % 00017380 
»CIDROWAREAV = 204 % 009047390 
sINQINPUTAREAV = 218 % 00017400 
s INTARRAYAREAV =z 2e4 % 00017410 
@RJEINPUTAREAV = 234 % 00017420 
sDCQUEVEAREAV = 2484 & 00017430 
»DALOCROWAREAV = 25# % 00017440 
sSHEETAREAY a 268 % 00017450 
» STAWORDAREAV = 27# % DC MCP ONLY 00017460 
sKEYINBUFFAREAV = 28% % 00017470 
as FSAREAV wm 298 % 00017480 
sOCLOQUEVEAREAV = 30% % OC MCP ONLY 00017490 
sAVTABLEAREAV = 344 % 00017506 
aTRACETABLEAREAV » 32# % DOC MCP ONLY 00017510 
eSEGDICTAREAV m 334 % 00017520 
eSTACKRPRTAREAV = 34% % 000175396 
»sMCPTABLEAREAV =e 35% % 00017540 
s IRSTAGKAREAV z= 368% % 00017556 
aFPBAREAV = 37# X 00017560 
sCONTROLCARDAREAV = 38% % 00017568 
»LABELAREAYV = 398% % 00017564 
»sMDUMPAREAYV = 408 % 00017566 
eESPDISKAREAV se AL# % 00017568 
sLOGAREAV = 42H % 00017570 


sCANDEINPUTAREAV # 434 % TSS MCP ONLY 00017572 
sOBJOBINPUTAREAV = 44# % TSS MCP ONLY 00017574 
a TYPEGS = 45# % 00017576 
» TYPE 46 = 46# % 00017578 
e TYPES? = A7# % 00017566 
a TYPE4S = 48# % 00017582 
3 00017600 


REAGALALLALALALASLLGALALATALARA RRR ALAVARLALATALATAARATLALALARVALALAZTXZO0VI7700 
Levee ead Ree E EERE EEE AREER eae ee a eae eee 800007748 


+ #200017726 
Xs MEMORY LINKS #%00037730 
an #%00017740 


KHER HERE REET EEE EERE HERE ERE EER RK RE RK KE REKEEOOO T7750 
LEVALALTLAALALLLABEALTAUULURALLULATAAVLATAATAATVARLATTAATLATAARVAATALTLUASZZOOOI7 7660 


x CO01776R2 
x FIELOS OF MEMORY LINK O OF ALL AREAS 00017764 
x 00047766 
FIELD 00017770 
AREAAVAILF = 01101 % = © FOR IN®USE AREA *® $ FOR AVAIL, AREA 00017786 

e AREASAVEF = 02;01 % = 1 FOR IN@"USE SAVE AREAs = 0 FOR GLAY AREAOQQ017790 

» AREATYPEF ® 03306 % TYPE OF AREA CSEE aBOVE) 00017806 

ea AREAMIRKFE = 09306 % MIX INDEX OF OWNER OF AREA 00017810 
eAREABACKLINKF = 18215 % ADDRESS OF PREVIOUS AREA 000178206 
»AREAFWOLINKF 2 33815 &® ADDRESS OF NEXT AREA 00017830 

3 00017840 

$ VOIOT 00068001 00059000 


SLUELVVETAUAVELALLELALVYTYALLEAALULTAELVAAALAALLVLSLALAAALLSEALERALLALLXAAXZROONGOOOO 
REREAD HEGRE ERE EERE EKER KRENEK ERE Ree eee eee eH ZO0060010 


Zs #%00060020 
%* MISCELLANEOUS FIELD DEFINITIONS  #*%00060038 
%* #%00060040 


GT ER AREER EE EERE ER TERRE EKER EEE HHHEOOO60050 
RUVLVEVTRETALALA AL ULUAVATAVTTAYA ALA RARALLTRVAAAAALARALLLARLAAARALAT STL ALAAXWLWZXZO 0060060 


00060070 

FIELO 00060080 
FF = 18915 % 00060098 

oCF = 33315 % 00060100 
ecTr a FF % 00060110 
ectc = CF % 000601420 
oMSFF * 16101 % 00060130 

; 00060999 

% 00061000 
x FIELDS OF AIT ENTRY 00061010 
x 00061020 
FIELD 00061030 
FILEBIT = 01801 % 00061040 
sQWNBIT = 02801 & 00061045 
sDIMENSIONS = 03305 &% 00061050 
sBLKCNTR = 08810 % 00061060 
»MOM = 18815 % 00061070 

3 00061999 

x 00062000 
z FIELDS OF DATA DESCRIPTOR 00062010 
4 00062020 
FIELD 00062030 

%  FLAGBITF = 00300 % 00062040 
% DATABITF = 01901 % ALWAYS OFF FOR A DATA DESCRIPTOR 00062050 


% 
% 


% 
% 
% 


$ 


ON IF DESCRIPTOR POINTS TQ AREA OF CORE 

SIZE OF ARRAY ROW IF ARRAY DESC, 

O FOR INDEXED DATA DESC, OR NAME DESC, 
ADDRESS OF MOTHER DESCRIPTOR, 

IF PalT IS ON THEN THIS FIELO CONTAINS AN 
ACTUAL CORE ADORESS, IF TRE PalyY IS OFF THEN 
IF THE VALUE OF THIS FIELD IS GREATER THAN 
OR EQUAL TO 532 THEN THE FIELD CONTAINS A 
DALOcC ADDRESS WHICH CAN BE USED TO LOCATE THE 00062146 
DATA IN THE OVERLAY DISK AREA ASSIGNED TO THE 00062450 
THE PROGRAM, IF THE VALUE OF THE FIELD IS LESS00062160 
THAN 512 THEN THIS FIELD CONTAINS A CODE 
INDICATING THE STATUS OF THE AREA. 


DEFINES 


Re HR we 
ve ae ae 20 20 


0 
1 
2 
5 


NEVER ACCESSED OVERLAY AREA» 
NEVER ACCESSED SAVE AREA, 

NEVER ACCESSEQ OVERLAY AREA WHICH 
WHICH IS ASSIGNED TO AUXMEM, 
INDICATES OVERLAY IS CURRENTLY IN 

PROCESS FOR THIS AREA 
INDICATES GLAY HAD IRRECOVERABLE 


00062060 
00062076 
00062080 
00062090 
00062100 
00062110 
00062126 
000621386 


00062170 
00062180 
00062190 
00062200 
00062210 
00062220 
00062238 
000622460 
00062250 


ERROR WHEN QVERLAYING THIS AREA.00062266 
THE NEXT ACCESS TO THE AREA WILL00062270 


CAUSE THE PROGRAM TQ BE TERMIe 
NATED. 


T 8# GETSPACE(S*i» SPOUTMSGAREAV+64s 0) + 13 
MUCMESSAGEe1)].CAREATYPEF) &$* SPOUTMSGAREAV3 
AS®TYPEDSPACE( 15s SPOUTMSGAREAV )3 

S 33 IF MCT),AREATYPEF % CODEAREAV THEN 
MCT#iJaCCF) ELSE 03% 

ELSE PCMET*2] eAREATYPEF*DUP) 42 TYPE7INTAREAV AND 
PCXCH) #4 TYPELSINTAREAV) OR L #® O03 
TPEeCMCTAS#TYPEDSPACE (51 3*MDUMPAREAV) J] 


@ S1L3CSIZE) &@ Sle1845s3 5% 


tz TYPEDSPACE (10sLABELAREAV)3% 
INPUTANKESTAI,CFFIS#ReaCIF Ti GTR O THEN Ti ELSE 
TYPEDSPACE( 3220BYOBINPUTAREAV) D423 


LASTSEGCOJ CFF) 


PBIT s 02901 & 
@SIZE 2 08:10 &% 
x 
»MOMADDRESSF = 19315 % 
» ADDRESSF e 33315 % 
x 
& 
x 
x 
x 
% 
% 
x 
% 
% 
% 
, 4 
% 
% 
% 
% 
% 
% 
% 
3, 
MISCELLANEOUS 
DEFINE 
CURBLKCNTR = 16 
»AITNOX = 6 
eFTF = 48848815 
aFTC * 33918815 
#DELTA = 14 
j 
LBL 
VOroT 


PCPIMIX)3 


PiMIxs 


3Q3 


13 (SISTYPEDSPACE 
C32eCANDETNPUTAREAV) )+23 


Lt=GETSPACE CAs SCRATCHD IRAREAVsSCRATCHSAVE)3 

INBUFF t= GETSPACECLIsIOBUFFERAREAV si )+23% 
FIRSTCARD #% GETSPACE (10sCONTROLCARDAREAVs1)425% 
ELSE BEGIN OUTBUFFOLD t= QUTBUFF 4% 
GETSPACE( GOs TQBUFFERAREAVs1 )4+23% 

H t@ SAVEARRAYDESC(30s0ISKHEADERAREAV )3% 


00062280 
00062290 
00062999 
00067000 
00067010 
00067020 
00067030 
00067040 
00067050 
00067060 
00067070 
00067080 
00067999 
02134308 
02134716 
02205475 
02216000 
02216010 
02216606 
02216610 
02434430 
02494435 
02639006 
03648800 
03616818 
03638506 
03638600 
05804200 
0581146@ 
05811470 
07086000 
07087000 
07095000 
07095100 
07097008 


@ 
SHEAT t= LMCFS@TYPEDSPACE(31»SHEETAREAV*64))) & 3O0CLSIZEI3 407256400 
SEGO t= TYPEDSPACE(30»SEGZEROAREAV 464) 3% 07257400 
e KH $= CIDROWCR) ta CMCSIs 07433000 
GETSPACE (94s CIDROWAREAV+6491242)) & 94 SIZE} 07433106 
TIZGETSPACECL3* CONTROLCARDAREAV 46420 )443 07446000 
e SHEAT © CMEF es TYPEDSPACE( 31sSHEETAREAV $64) J IJ&Z0LSIZEI408274250 
SEGO 82 TYPEDSPACE(30»SEGZEROAREAV464) 3% 08275500 
CISTYPEDSPACE(S»MAINTOUFFAREAV)3% 08385106 
e BEGIN R&taTYPEDSPACECS*#MAINTBUFFAREAV)3% 08410000 
St=(MCTYPEDSPACEC31sSHEETAREAVII] & 30CSIZEI]3% 08881000 
DUNK SeCMCTYPRDSPACE(31»SHEETAREAVII) & 30CSIZEI5% 08930000 
e INTRNSC $= CMCINTLOCS eGETSPACECMAXINT+TI7SIZE*sINTARRAYAREAV1)42])& 09506000 
Bira(GETSPACE(94sTOBUFFERAREAV)1)42) & SOCSIZEI3% 12672508 
LOGINFOt=SAVEARRAYOESC( 20, OGAREAV)3% 12848500 
e NTL SaGETSPACE(C5S »MAINTBUFF AREAV46490) 423 14411820 
TI=GETSPACE(C12s CONTROL CARDAREAV 46490 )+45% 14533000 
SEG ts IF MER) «AREATYPEF 3 CODEAREAV THEN MUCR#iJef£CF] ELSE 03 16853000 
e “ELSE PCMCRe2]eAREATYPEF* DUP) # TYPE7INTAREAV AND PCXCH) # 16854200 
TYPE13INTAREAV) OR LOCN # O03 16854308 
BUFF %= TYPEDSPACE(6@sKEYINBUFFAREAV) + 13 16954200 
e FHS s€MCF i aTYPEDSPACECTEMPsOILSKHEADERAREAV))] & TEMPCSIZE33% 18285206 
Fo t2 [MCF ae TYPEDSPACE( 30/01 SKHEADERAREAV))) & 30 SIZE; 18286000 
STREAMCAsBp T8a@Tt=GETSPACEC 10s CONTROLCARDAREAV+6490 )44)3 18438120 
TSSGETSPACE(I 45 sCONTROLCARDAREAV#64s0) 445% 18520300 
e S t= (MCTYPEQSPACEC3L*SHEETAREAV))) &@ 30(8838210]3% 20026600 
HDR t= GETSRACEC30sDISKHEADERAREAVe| )+23 20028700 
e FPB t= TYPEQSPACE(SEGOC5) INX le FPBAREAV)3 20049008 
FRtsGETSPACE (CSEGOCR Ie CCF IMETRLNGs FPBAREAVs1) +23 20049800 
LBL tsARRAYDESC(30sLBLEQNAREAV IIS 20059400 
e LBL 3 *®ARRAYDESC(30s_ BLE QNAREAV 3% 20089800 
SEGOt*ARRAYDESC( 30s SEGZERQAREAV)3% 20110400 
SINFOCMIX],CCF] 88 CSTACKLOC ts 20116100 
e GETSPACEC(SEGOL3] INx SC24] INX 64% STACKPRTAREAVs 1)) + 23 20116200 
TRPCA] Se CMC TIsGETSPACECSEGOLII oe (CFIsSEGOICTAREAVS1)422)3 20124900 
STREAMCD$ @DALOCROWE MIXI]2=SAVEARRAYDESCCOALOCSIZE*+DALQCROWAREAV))4% 20127300 
e $ VOID 20127400 
STREAMCD ##® UVSPACE 8 TYPEDSPACECUVSIZE*#UVROWAREAV) D3 20156800 
MCHOR@24 t= (#P(DUP)) & JARROWAREAV AREATYPEF3 & 20169700 
e STREAMC Q82F SROBC MIX] S2SAVEARRAYDESC (4s FSAREAV) 3% 20183618 
TRPL 3] Se CMCGETSPACEC 1 *FPGAREAVs1)42]) ELSE % 20187400 
BEGIN CARD,.(633%15)] %* TYPEDSPACEC 13> CONTROLCARDAREAV)+23 20600950 
e I $=GETSPAGE C30» JARROWAREAVEMIXECTF J 01)423 21304000 
It@GETSPACECUVSIZEsUVROWAREAVGQMIXCCTFIe1) +23 21308000 
SHEAT s2(MCF Sa TYPEDSPACEC31sSHEETAREAV#64))) & 30[883831033% 22069050 
e SEGO t= TYPEDSPACE(30,SEGZEROAREAV+64)3% 22069106 
IF (MIX %@ LINKsABEAMIXF) * O THEN GO TO MCP3 22297000 
IF PCLINKsAREATYPEF »DUP) © CODEAREAV OR PC(XCK) 2 22303000 
P TYPELZINTAREAV THEN GO TO CODES 22303100 
IF LINKeAREATYPEF =@ TYPEL3INTAREAV THEN % TYPE 13 INTRINSIC 22356100 
IF PCLINK,AREATYPEF*sDUP) ® TYRE7ZINTAREAV GR PCXCH) # 22386000 
e TYPEL3INTAREAV THEN GO TO INTRINSICA 22386056 
IF LINKe AREATYPEF = OATAAREAV THEN & OVERLAYABLE MCP DATA 22386100 
MCGETSPACES ST] 8 eC #PCOUP)&TYPELAREATYPEF J@MIXCAREAMIXF JS 24400000 
e BEGIN TMP2=GeETSPACECFPBPTR+ETRUNGs FPBAREAVs 1) 423% 28050800 
Ht aC MC TYPEDSPACE (C42, DISKHEADERAREAVII) & 30(8338810)3% 28070000 
TtsGETSPACE ( 30sDISKHEADERAREAVs1) 423% 28288000 
e TMP SeGETSPACE (122 CONTROLCARDAREAV +6495 443% 28435000 
@ 


LABS #ARRAYDESCC 1S sLABELAREAV)3% 28451800 
FAtsTYPEDSPACECTMP8sTEMP+(TEMP DIV 2)42sDATAAREAV) 443% 28452600 
CCASBSAVEARRAYDE SCC 30sESPDISKAREAV) 3% 28455400 
FAt=TYPEDSPACECCBUMPFASEFASZISIF MAX > 128 THEN 128 ELSE MAX)+ 28456800 
(FASZ DIV 2)42s0ATAAREAV) 413% 28457000 

Sts ARRAYDESCC3IO»ESPDISKAREAV)3% 28855000 
BEGIN MCALPHASI )¢(CURLOCeGETSPACE(BSIZE+4, 1 QBUFFERAREAVs1)4+2)423 37406000 
MCTQt@ALPHAw2)%eM OR CGETSPACEC(CTZISM(T1) SIZE) HGs 38107000 
LABELAREAVs1)#4) &@ TACSIZE) & CNTLBITSCFIF 1538107100 

BEGIN NT3 te TYPEDSPACECLIsLABELAREAV)+25% 38107300 
MECTLPSALPHAP2]¢@M OR CGETSPACECCTIPSMCT12 SIZE) +4e 38205000 


LABELAREAVs1)44) & TICSIZE) & CNTLBITSCFIFI#38205100 
SEGOEZCMCTYPEDSPACE( 62SEGZEROAREAV)IIJ&€30(0S1ZE1538434000 


IF COBOL>O OR FIBC4)6f781] THEN 39304000 

MCFI8 INX NOT 1), AREATYPEF 82 COBOLFIBAREAV 39304500 

ELSE 39304600 
MCALPHA*7J)¢AREATYPEF &%8 ALGOLFIBAREAV} 39305000 

KEY 82 GETSPACEC 5s MAINTBUFFAREAV+6400 )o2s 41312700 

KEY 82 GETSPACECSs#MAINTBUFFAREAV4+6450) 423 41314006 

T1 %= TYPEDSPACEC AS +»MAINTAUFFAREAV )3% 41323136 

MLA %2 CMCASEGETSPACE(C33,MAINTBUFFAREAV20)*3)]) & 32CSIZEID3% 41328600 
IT2SCTILRGETSPACEC Uses INQUIRYAUFFAREAV 20241943 ANO NOT 33 44041006 
M(C8zjteTyYPEOSPACE CI »MCPTABLEAREAV )4T Jt =03 44153506 

SJSBGETSPACE CZ» AVTABLEAREAV2 1) 423 44240840 

SCRATCHVECts LC MEGETSPACE(C 10s SCRATCHDIRAREAVs SCRATCHSAVE )*2)] 442417480 

& £0 ¢ToSize}3 44241485 

BEGIN 48052000 
PCNT4sBLOBoNTIsGETSPACEC NTL» STACKAREAVs 3) 1548092100 

$? BY JTC *= MSA CENTRAL 99990000 
S$! DATE O3/17/765 UPDATE 11/05/76 99990100 
$3 THIS PATCH CAUSES THE TSSMCP TO TYPE MANY OF THE MEMORY AREAS 99990200 
$t THAT WERE LEFT UNTYPED BEFOREe THIS PRIMARILY BENEFITS THE OUMP 99990300 
$2 ANALYZER, 99990400 


Go dee ERE EEE EEE REE EERE REE KK EEnEIDIIIIGS 


‘S#PATCH NUMBER 156 FOR TSSMCP MARK XVI CONTAINS 5 CARDS, 


IF HEADERs (CF) GEQ 64 THEN FORGETSPACECHEADER); 12561600 

$vOIpT 12572000 
$SVOIDT 12573006 
P(1) 12573500 

ELSE 12574000 


$3 BY JTC = MSA CENTRAL 
$i SOFTWARE FLASH #164 AND CORRECTION FLASH #190 


LPR EEREERERSERALAESCELAECESICAECECCCOCCCACE CASA ROPER PERRO CECE ESSE SERS ESR ERE EE 


S#PATCH NUMBER 158 FOR TSS$MCP CONTAINS 18 CARDS, 00000000 
ARRAY WORKERSTACKE*)3 &% DESC, TO OLDWIERDKAROLDS STACKse 00299500 
ARRAY ESPTABLC*#]3 REAL ESPCOUNTS % 00399000 
GETESPOISK t= CCPCDUP),CCFI*ESPTAB eS ICFI)x8 06031002 

S ta CESPTABS(CF94S,030915)) & SE39083)3 % 06038000 

DEFINE HARRYSTA a WORKERSTACK(5]#» % STA 14344400 

I t2 Ws T 8s PC,ESPTAB)S FIXS % 44173200 

I t= 1003 T t= Pc,WORKERSTACK)$ FIX3 & 44179100 

I t= 03 44179200 

FOR T t= 1 STEP 4 UNTIL NUMSTACK DO 44179258 

BEGIN 44179300 

MCv)] a= I3 % LINK TO PREVIOUS STACK IN Q, 44179350 

MUJ¢1) t@ WORDOFEASES % CLEAR STACK 44179408 
MOVECSTANDARDSTACK@2eJ4joJ42)3 44179450 


I te ys % REMEMBER WHERE THIS STACK IS 
J ta J + STANDARDSTACKS % COMPUTE ADORESS OF NEXT STAC 
END; 
STACKQ t# I3 % POINT TO FIRST STACK IN Q, 
MOVECO9sTtmWGRKERSTACKS (CF JeI41)3 STO SPOT POSSIBLE OVER 
$3 DATE 3/19/76 
$: BY JTC = MSA CENTRAL 
$t 
$: THIS PATCH CAUSES DESCRIPTORS TO BE BUILT FOR THE WORKERSTACK AND 
$3 ESPTAB TO HELP THE DUMP ANALYZER ANALYZE THE MCP SAVE AREAS. 
CROCE CCA CECSCECOSE ECE COS SSE SCRE ELE SSE EE ESRC EE SE EERE E REESE SESE ES SE 
S#PATCH NUMBER 159 FOR TSSMCP CONTAINS 25 CARDS 
REaL PROCEDURE INPUTSCANCMODEs SOURCEs DEST» NUM»s FLAGS» SEQMODE D3 
VALUE NUMsFLAGSsSEQMODES 
REAL MODE» SOURCE »sDEST»NUMsFLAGS»SEQMODES 
REAL PROCEDURE INPUTSCAN (MODEs»SOURCE sDEST»sNUMs FLAGS» SEQMODE D3 
VALUE NUMsFLAGS»sSEQMODE3 
REAL MODE»SOURCE* DEST» NUMsF LAGS» SEQMODES 
UtsCDESTeL3IOSIIADESTCIO839815) MCINPTSCelCIOMIIAINPTSCLI0833215) 23 


IF ysi AND SEQMODE %U"1 WHEN ONLY “#" LEFT IN BUF es AND IF SEQMOODE 
THEN STRUE» THEN USER BACKSPACED TO FRONT OF BUFFER, 
BEGIN 
STREAM CASBOSDEST)3 
BEGIN OI ss0Ie13 ZMAKE INPUT LOOK LIKE A NULL LINE 
DSse2LIT*™ #32 CSPACE) TO PREVENT CANDE FROM 
Ate=OI3 SBELIEVING THIS IS END OF SEQ MODE 
END} 
PCCOESTIsSTO)3 
GO AUT3 
END4 
INPUTSCAN? 8U3 


Nits {NPUTSCANCMODEsSORCsAds CMCAL) Oo CFF IMX C298) A FLAGS 9023 

NLP SINPUTSCANC MODE sSORC oASoMCALICCFF J oFLAGS 20 D3 

DEFINE SEQMODE = IF STATAB,STATIONTYPEZTWX THEN FALSE 
ELSE CLINEDISCESTAJBTWX AND SEQGARRAY(STAI40)8#3 

NUMS2NUM+INPUTSCANCMODEs SOURCE sJ*BUFSZ°TLIs FLAGS» SEQMODE D3 

NUMSSNUMSINPUTSGCANCMODEs SOURCEs J»BUFSZs FLAGS» SEQMODE D3 
$1 BY DUZ"MSA CENTRAL 
$! SOFTWARE FLASH #175 AND CORRECTION FLASH #185 
$3 SOFTWARE FLASH 20C CORRECTION 
LTTE TTLITETT ETL IETTTTUTTITT TRE TTELL LILI LIT i cL 
S#PATCH NUMBER 160 FOR TSSMCP CONTAINS 12 CARDS, 

BEGIN 
IF PCOsRDS) GTR FENCE 
$VOIOT 
ELSE COMPLEXSLEEP((B OR REPLYCPIMIX] GTR O OR TERMSETCPIMIX)))3 
SVOIDT 06472501 
IF JARCPUMIXs9)]-¢SYSUJOBF NEQ LIBMAINCOOE THEN GQ INITIATES 
EXIT: PCP&RCWEKCTCI]s0sRDOS20sXCHe PAPC CTF IsSTF)3 
$VOIOT 
IF CMEMCPIMIXsMLINK1J)7,0CF) GE@ FENCE THEN 

$VOIDT 
$SVOIOT 
SVOIOT 
$3 BY JTC» KFK = MSW CENTRAL» SOFTWARE FLASH 176 
EE PETE TTITITTETT ITEP TUTTI TILE LILLIE LLL! 


S#PATCH NUMBER 161 FOR TSSMCP CONTAINS 1 CARD 


44179500 
44179550 
44179600 
44179650 
44189600 
99990006 
99990100 
99990200 
99990300 
99990400 
99999999 


03071000 
03072000 
03073000 
03276800 
03277000 
03277200 
03290600 
03290708 
03290800 
03290816 
03290820 
03290830 
03290840 
03290850 
03290860 
03290870 
03290886 
03290890 
03290900 
03307000 
03313400 
03614606 
03614700 
0361820e 
03634000 


06468000 
06470000 
06471000 
06472100 
06472200 
06473100 
26101200 
37180675 
37226108 
37226150 
37226500 
37227500 


BOMB?! IF OUR1@ THEN FORGETITS® 07231000 
$1 BY DJZ = MSA CENTRAL» SOFTWARE FLASH 177 
CVETETETITIELIETIETTITITELO CITT LITLELI LILLE t ti 


S#PATCH NUMBER 162 FOR TSSMCP CONTAINS 3 CARDS, 


IF (NT2%8P).f 201) THEN SLEFT AT 12626500 12635500 
$VOIOT 12638000 
BEGIN IF (lOOs2Te(9824) DIV 5240 THEN 2%SPACE FORWARD 12650500 


$tBY DJZ = MSA CENTRAL» SOFTWARE FLASH 180 
CPELTETITATIEA TC ETE TET ELIT TITTLE PCC e Cece c eee ee eee 


S$#PaTCH NUMBER 163 FOR TSSMCP CONTAINS 3 CARDS. 


$ SET OMIT = PACKETS 20034060 
ELSE FORGETSPACECHDR)A 20034070 
$ POP OMIT 20034080 


$i BY DJZ = MSA CENTRAL» SOFTWARE FLASH 183 


(URE REREOCREESESERSCLOSCOCSAESE SESE ER EER AE ERE REPRE SER ERE RESET RR ERE RES E EES ESS 


S$#PATCH NUMBER 164 FQR TSSMCP CONTAINS 46 CARDS,» 00000000 
REAL ERI*ERRSER33 LABEL ERSYS3 20511152 
ERLta™ )e "3% 20541175 

OR SYSTEMFILECCMMCOJsCMMEL1)) THEN 205111868 

BEGIN ERSYS! ERI a"SYSTEM "JERZSE"FILE)® "3 GO ERROR ENDS 20511190 

BEGIN ERite"SAME FIMSER28="LE)® "3 GO ERROR END 20511303 

IF TYPE=USEV AND MCOPTN+2)<O THENS 20511312 

BEGIN ERLPMMSECURIT"SER2Ia"Y FILE MS ERS tate "3 GO ERR —€ND3 20511313 

BEGIN ERLISMINVALIDMJER2IE" USER) oM3% 20511335 

ERR FORGETSPACECOPTN)3% 20511340 

END ELSE IF oPTN#®2 THEN GO ERSYS2 @ LINE 20511190 205141363 

ELSE IF CPTN®1 THEN BEGIN ER1Lsa"IN USEIMIERZ whe " END 20511364 

ELSE IF CPTN=O THEN BEGIN ER1s="NOT ON "ZERQter"OISK)© " ENDJ§20511365 

ERRORS 20311366 
STREAMCASS(CMMCOJI SERS aCERL] »BiecOPTNieSPACE(10)) 23 20511370 

OSt225 LIT * SECURITY MAINT IGNORED ("3 SIteERs% 205141400 

3CSIsaSle13 OSta7 CHR)3% 20511405 

$3 BY DyZ = MSA CENTRAL (SUBMITTED BY Se KELLEY = NATAL UNIVERSITY) 99990000 
$! DATE 95/12/76 99990106 
$3 THIS PATCH MaKES THE "SECURITY MAINT IGNORED" MESSAGE MORE 99990200 
$: EXPLICIT BY ADDING ONE OF THE FOLLOWING REASONS TO THE MESSAGE! 99990300 
$3 1) S¥STEM FILE 99990400 
$3 2) SECURITY FILE 99990500 
$3 3) INVALID USER 99990600 
$? 4) IN USE 99990700 
$3 5) NOT ON DISK 99990800 
$3 AND 6) SAME FILE, 99990900 
SE EERE RE EERE EEE KEE RA ETE eA eR ee EEHEEOIIOIOOS 
S#PATCH NUMBER 165 FOR TSSMCP CONTAINS 1 CARD, 00000000 
AND CCMFID EQV "BADISK %) NEQ NOT Q) 28415250 

$: BY DJZ = MSA CENTRAL (SUBMITTED BY Se KELLEY * NATAL UNIVERSITY) 99990000 
$! DATE 95/13/76 99990100 
$! THIS PATCH WILL PREVENT "BADISK" FILES FROM BEING DUMPED TO A 99990200 
$i LIBRARY TAPE. PREVIOUSLY» IF THESE FILES WERE RELOADED» THEY 99990300 
$1 WERE ALLOCATED AS NORMAL FILESs WITH A VERY SMALL CHANCE OF 99990400 
$3 BEING PLACED IN THE PROPER SPACEe FOR OUMPING PURPOSES ONLY? 99990500 
$s ALL "BADISK" FILES WILL NOW BE TREATED AS SYSTEM FILES, 99990600 
$t NOTE THAT SITES SHOULD NOT ALLOW USER FILES TO BE CREATED WITH 99990700 
$t "BADISK" <MFID>S» AS THESE ALSO WILL NOT BE OUMPED, 99990800 
SEG ee ARERR REWER REE E EERE EAR ET EEN RE R HR HHREOOIIIODS 
S#PATCH NUMBER 166 FOR TSSMCP CONTAINS 18 CARDS. 00000000 
x 0f41331) FILE TO BE ADDED CNOT ON OISK) 28200064 


MUSTADD = BAsCY3RtLI 28208300 

Ree anekece ewe eee ee keke enn AEN ENHERKK KEE 28270806 

% CHECK IF FILE IS T@ BE AOCDED 28270807 
CORRES ESOP CSO SERS CCS E SEC CLES ASAE RSE EEE ae 28270808 

% 28270809 

IF ADOV THER 28270610 

IF NOT MUSTADD THEN 28270818 

IF OU 3 18 THEN®X® TAPE TO OISK 28270814 

IF DIRECTORYSEARCH(C#MFIDsFI0s5) NEQ@ OX ALREADY ON OISK 28270816 

THEN BEGIN 28270816 
LBMESSCABSCMFID) »FID e675 68s TINUCIUJ»>SPOUTUNIT»LIBMSG)3 28270820 

IF DSED THEN ABORT3 26270822 

GO NEXT; 28270826 

ENO 28270828 

ELSE BEGIN MCFAINFOs ye CA3tLJ iets MUSTADD #4 ENDS 28270830 

IF MUSTADD THEN Tts0 ELSES ADO FILE NOT ON OISK 28281550 

MON DISK," %, % 68 41493085 

$3: BY DUZ = MSA CENTRAL CSUBMITTED BY Se KELLEY * NATAL UNIVERSITY) 99990000 
$3? DATE 05/13/76 99990100 
$3 THIS PATCH WILL PREVENT THE MCP FROM SCANNING DOWN A LIBRARY 99990200 
$3 DUMP TAPE TO FIND A FILE WHEN THE FILE BEING AODED IS ALREADY 99990300 
$$ ON OI1SKe A NEW MESSAGE IS ALSO INTRODUCED. THIS WILL BE SENT 99990400 
$$ TO THE PACKET PAGE AND ALSO TO THE SPO IF LIBMSG IS SET. THE 99990500 
$t FORMAT OF TRE NEW MESSAGE IS3 99990600 
$3 o<MFID>/<FID> NOT COPIED CON DISK)» MT<UNITO 99990700 
SER ae EERE EERE EERE EEN RE RAT ERE ReeeeaeHHIIIIIOIS 
S#PATCH NUMBER 167 FOR TSSMCP CONTAINS 1 CARD, 00000000 
IF KINDa? AND FIBE43).028210)2ABS( COBOL) THEN GO FIND ELSE 38272000 

$$ DATE 6/23/76 99990000 
$1 BY JTC = MSA CENTRAL 99990106 
$t 99990200 
$% THIS PATCH FIXES QTHERFILEQPENOUT SQ THAT COBQL68 PRINTER 99990300 
$2 BACK UP TAPES WILL HAVE CORRECTLY FORMATTED PRINT 99990400 
$! FILE LABLES WRITTEN ON THEM, 99990500 
SEW HEE R EERE ENEEE HAN E RE RAEER EE ED ERE EAR eRe ee EREIOIIIO GOO 
$#PATCH NUMBER 168 FOR TSSMCP CONTAINS 11 CAROS. TAPE PARITY 00000000 
LABEL ERR@RSs,DSKERReDSoXoSWelLPoDKeDOXeOX1eDCoOKeL 13 04125000 

SWITCH TYPE te OkKeLPeOkKs OKs OKs OKs OKs OKs OKs OK3 04128000 

+ 4 04129520 
% CHECK FOR A PARTIAL WORD BINARY READ WITH NO FARITY ERRORS,» 04129530 
% THIS IS ILLEGAL ANO IS MARKED AS BEING A PARITY ERROR, 04129546 
% 04129550 
IF €Rell18%812] AND 84462) = @0440 THEN &% BIN READ*NO PAR 04129576 

IF R,01583] #¢ CCB8eReL2281]) AND 7) THEN &% PART WO XFER 04129580 

Rel2684] s= MOO3ZIOS% & MARK AS PARITY ERROR IF MOD III 04129590 

$VOIOT 04167801 04167106 
IF U LE@ 15 THEN & TAPE 170 94129560 

$$ DATE 9/14/76 99990000 
$i BY JTC = MSA CENTRAL 99990100 
$i 99990200 
$3 THIS PATCH REWRITES THE CODE FOR HANDLING PARTIAL WORD TRANSFER 99990300 
$8 ON BINAR¥ READS FROM TAPEe SINCE THIS IS ILLEGAL FOR THE B5S700 99990400 
$1 SUCH 1/0 RESULTS ARE MARKED AS PARITY ERRORSe PREVIOUS TO THIS PATCH 99990500 
$t SPACE REVERSE I/0Q S LOOKED LIKE PARTIAL WORD TRANSFERS ANO THIS 99990600 
$1 CAUSED ONLINE/MAINT TAPE CONFIDENCE ROUTINES e2s AND 3 TO FAIL. 99990708 
$3 NOTES SITES THaT READ NON@STANDARO TAPES THAT HAVE BINARY 99990808 
$: PARITY AND PARTIAL WORD BLOCKS MAY WANT TO ELIMINATE THIS PATCH 99990900 


$: SINCE IT WILL CAUSE RETRIES TO BE DONE ON SUCH TAPES, 99991000 
LER APRELEAAEEEERAESATE LECCE LACT E CLO AIE CERES SACRE RES ESE CRESS SEES 99991100 
S#PATCH NUMBER 169 FOR TSSMCP CONTAINS 4 CARDS. 
PPCPROCESS!3=03% 20602855 
IF UNITNO232 TREN CIDROWCUNITNO"32),03:5)820 ELSES 20606900 
IF UNITNO®23 THEN READERAo(FFIJ820 ELSEX 20606910 
IF UNITNO®24 THEN READERBe (FF IJIO3% 20606920 
$1 BY DYyZ = MSA CENTRAL 
$? SOFTWARE FLASH 201 
GL ERR REE EE a eK TEENA HEE 
$#PATCH NUMBER 170 FOR TSSMCP CONTAINS 1 CAROS 00000000 
BEGIN IF XLST#0 THEN XLST&eCMCSPACECXLSTSZ92390)11830088 3881073 20567005 
$8 DATE G/LF/S76 99990000 
$! BY JTC = MSA CENTRAL 99990100 
$3 99990200 
$: THIS PATCH PREVENTS EXTRA EXCEPTION LISTS FROM BUILDING UP IN 99990300 
$3 CORE WHEN PROCESSING REMOVE OR COPY CARDS wWITh MULTIPLE 99990400 
$? EXCEPTION LISTS, 99990500 
SRE EKER AERA TEER EEE RRR EE ee eee eke ke eH I9II0 600 
S$#PATCH NUMBER 172 FOR TSSMCP CONTAINS 9 CARDS. 00000000 
ADECK ¢ O03 FIRSTORSEC ¢ 07108100 
$ 07108999 
$ 07109001 
BEGIN LABEL TRYAGAIN3 20289030 
: 20289330 
X36} MEBUF 417129803 20289335 
129% GO To EXTERNAL3 % 35 * SPECIAL INTERRUPT 46031500 
'30! GO TO EXTERNAL % 36 = DKA READ CHECK 46012000 
$313 GO To EXTERNAL3 % 37 = OKB READ CHECK 46012500 
$3: BY DYZ = MSC DETROIT 99990000 
$! DATE 11/29/76 99990100 
$t THIS PATCH eee 99990206 
$3 1) REMOVES SOME REDUNDANT CODE FROM PROCEDWRE "cOm23ns 99990300 
$3 2) REMOVES UNNECESSARY LABEL IN PROCEDURE “PRINTTHECOVER"S 99990400 
$3 3) PREVENTS SYSTEM HANG IN "OO UNTIL FALSE” LOOP WHEN O]SK 99990500 
$3 READ CHECK IS DETECTEDe TRIS WAS QRIGINALLY INTRODUCED IN 99990600 
$3 TEMPORARY PATCH #2022 MARK XIV SYSTEM RELEASE. 99990708 
SERRE REE RAEN REREEREE EEE AT EAR EERE AHR HERIOIIIIOS 
S#PAYCH NUMBER 173 FOR TSSMCP CONTAINS 2 CARDS, 00000000 
*88 700 TS =MCP Ma~aR K  XVI404172 05/41/77 00001000 
"i72a" 00005040 
$t BY DYZ *= MSC DETRCIT 99990000 
$3 DATE 05/11/77 99990100 
$3 THIS PATCH UPDATES THE MARK LEVELS IN THE SYMBOL FILEe 99990200 
[URS CTE CCR EELAE SECC CICCELOCCCOCCCCOC CSCC LICS OCICS OSES ECOL ECOCE SESE SE CSAS ek fee) 
S#PATCH NUMBER 201 FOR TSSMCP CONTAINS 005 CAROS 00000000 
IF Us30 THEN 04129106 
BEGIN MC@1534C)seR3 04129200 
DCIOFINISHC(R)3 04129306 
END3 04129400 
IF CEMeCMCR1530C TIER), C2687) 4CV82T,£588)) NEG O THEN 041300090 
$t THIS CHANGE CAUSES THE RESULT DESCRIPTOR OF EACH 1/0 TO BE 00000002 
$¢ STORED INTO MC@1534I/0 CHANNEL NUMBER), 00000002 
$t 090000002 
$IBY JCF 00000002 
SITR geae 00000002 
SIDATE 3/6/73 00000008 


ER SECURE SESE SE COLE SSOCCOCCCOSSCCOSSE CSCO ES SSCS SOS CCS SSC ESOC CESSES COSC CSE SELLS SS 


S#PATCH NUMBER 202 FOR TSSMCPexve CONTAINS 25 CARDS 
»MEMTOG = TOGLE,(4333]#>MEMTOGMASK 3G 208 
IF CMEMCWAITSTORE1203),0CFIJ=#0 THEN 


00080500 
00093110 


IF NOT MEMTOG THEN SLEEPCCTOGLE) sMEMTOGMASK)ELSE ELSE00093120 


DEFINE STOREDYCSTOREDY1»STOREDY2)® IFCMEMESTOREOYI,0)),CCFJ#0 THEN 


MEMTOGtsSTOREDY2 ELSE 
MEMCSTCREDY100] ¢CA7tLISaSTOREDY283 
STOREDY(0,0)3 
STOREDY(O-1)3 
STOREDY(0s0)3 
STOREDY(001)3 
BEGIN WAITSTORECQ)3 STOREDY(020)3 
STBREDY(021)3 
WAITSTORECPIMIXIS STOREDYCPYMIxX20)3 
STOREDYCPIMIXe1)3 
WAITSTORECPIMIX)3 STOGREDYCPIMIX20)3 
STOREDYCPiIMIXs4)3 % FREE MEMORY TO ALLOW “ARTN® TO BE BROUGHT IN 
WAITSTORECMIX)3 STOREDY¢MIX#0)3 
STOREDYCMIX»s 1)3 
STOREDY(020)3 
STGREDYCOs1)3 
AGAIN! WAITSTORECMIX)3 STOREDY(MIX20)3 
STOREDY(MIXe1)3 
WAITSTORECPIMIX)3 STOREDYCPIMIX20)3 
STOREDYCPIMIXs1)3 
MEMTOG$=13 
$?THIS PATCH ALLOWS CELL ZERO TO BE MONITORED FOR INVALID WRITES 
SICAFTER INITIALIZE). IN ORDER TO ENABLE THIS» A NEW TOGLE IS 
$§ USED » MEMTOG* RATHER THAN M(COJ,C1731)]5 TO INTERLOCK MEMORY 
$3 BELOW THE FENCEe WITH THIS PATCH REFERENCE TO STOREDY 
SIMUST BE MADE AS"STOREDYCMIXsTQG)3"s» WHERE MIX IS THE MIX INDEX 
$tOF THE PROCESS AND TOG IS EITHER O OR Iie 
$3 
$3BY AMS 
$iTR 1790 
SItDATE 3/6/73 


00093400 
00093410 
00093420 
02396138 
02396500 
02434498 
02434530 
09617000 
09624000 
18841406 
18843508 
18843800 
18845006 
20119300 
20120306 
21032000 
21093000 
24309000 
24313000 
29544000 
29548000 
44114100 
90000004 
90000005 
90000010 
90000015 
90000020 
90000025 
00000002 
00000002 
00000002 
00000002 


PRESSE CSSSSECL COSCO CES CCE COC OLC CLOSE CEES ECE S ESCO CSE CORSO SCL CSL SSE SESS SSSCELOLIE 2 


S#PATCH NUMBER 203 FOR TSSMCPexV2 CONTAINS 29 CARDS 
BOOLEAN OKSEGZEROWRITES 
IF (PCIODESC,C385) 
$ SET OMIT = DKBNODFX 
»DUP) = @14 OR PCXCH 
$ POP OMIT 
>» = @6) AND 
NOT IODESC.C2481] AND 
CCCPOMEIQDESCSCCFIIJZ0UP) EQV OBNOT 0) OR 
CCPOXCH) EQV 32)"NOT 0)) AND 
NOT OKSEGZEROQWRITE THEN 
BYBYC"SEGMENT ZERO OVERWRITE Ss 23)3 
OKSEGZEROWRITELSTRUES 
OKSEGZEROWRITES =F ALSES 
OKSEGZEROWRITE $= TRUES 
OKSEGZEROWRITES@FALSES 
OKSEGZEROWRITE $8 TRUES 
OKSEGZEROWRITEMMFALSES 
OKSEGZEROWRITES ®TRUES 


00422100 
04004110 
04004119 
04004120 
04004121 
04004130 
04004140 
04004450 
04004155 
04004160 
04004470 
05665399 
05665401 
06059659 
06059661 
09645999 
09656001 
09682609 


OKSEGZEROWRITESSFALSES 
OKSEGZEROWRITESSTRUES 
OKSEGZEROWRITE SF ALSES 
OKSEGZEROWRITEsSSTRUES 
OKSEGZEROWRITES*FALSE3 
OKSEGZEROWRITEs *#TRUES 
OKSEGZEROWRITESSFALSE3 
OKSEGZEROWRITE? #TRUES 
OKSEGZEROWRITES FALSE} 
OKSEGZEROWRITES sTRUE3 
OKSEGZEROWRITE taF ALSE3 
$tTHIS CHANGE IS PROVIDED FOR DEBUGGING PURPOSES AND CAUSES THE mCP 
$:TO HANG IN A "O00 UNTIL FALSE" LOOP WHENEVER DISK SEGMENT ZERO IS 
$sABOUT TO BE UNEXPECTEDLY OVERWRITTEN, 
$3 
$tBY JCF 
$ITR 1766 
$8DATE 3/6/73 


09682611 
40249400 


40262100 
42600919 
42600921 
42713949 
42713951 
42730999 
42731001 
44411399 
44411401 
44419424 
44419423 
44419425 
00000002 
00000002 
00000008 
00000008 


So OE EE HAE RE A EREHHE EERE RHEE ER EEE KEK HHEKER ERAN ee 


$#PATCH NUMBER 301 FOR TSSMCPexve CONTAINS 3 CAROS 

IF MODE t# (CMODE#0) AND BLEN # 20 THEN 

SAVEWORD t= SAVEWORD OR TWwOCU)s 

CNTCTL #=@ DIREC #8 O03 
$? THIS PATCH ALLOWS THE READING OF PURE BINARY CARD INPUT» 
$t IF THE FILE IS DECLARED aS aLPHA WITK A BUFFER LENGTH 
$t OF 20 WORDS. ALSO THE CARD READER WILL BE MARKED SAVED 
$? WHEN THE PROGRAM CLOSES THE FILEe CARE SHOULO BE TAKEN 
$3 WHEN USING THIS FEATURE SINCE A “QEND" CARD WILL NOT 
$3 BE SEEN By THE SySTEme IT IS THE PROGRAMS RESPONCIBILITy 
$3 TO DETECT WHEN THE END OF THE FILE HAS OCCURRED, 


S'tBY JCF 
SEDATE 3/6/73 


38107610 
38107620 
38107700 
90000015 
90000020 
90000025 


00000002 


MRE U PESOS SE SECA RESRSES CEES AESEEECERSEA ERE REE E RRR ER ERE ESA RE REESE RSE REE REE ES ES SE | 


S#PATCH NUMBER 302 FOR TSSMCP CONTAINS 049 CARDS 
REAL RESULT = =43 
BOOLEAN ZEROTIMEOUT; 
ZEROTIMEQUTI8N,£C329193 
N,C3281]8303 
IF ZEROTIMEQUT THEN 
BEGIN 
RESULTiIs23 
STREAMCDSBAG(CFIDS 
Ose LIT "TIME3 "3 
GO TO RETURNS 
ENDS 
STREAMCTSSCC"END™ 8012) 02484226) 8A2)3 
BEGIN SIs#A2s DI s=lLoc Ts Oy ssDI +43 
IF 4 SC NEG DC THEN TALLY#313 
TESTALLY3S 


ENDS 
RESULTt=POLISHS 
GO TO RETURNS 
IF PAPERTAPE THEN 
BEGIN STREAMCTE#("END™)» SOURCE )3 
BEGIN SItaLoc Ts DIsaSOURCES 
SLssSle5s OLD +43 


00000000 
03292306 
03296250 
03296300 
03296350 
03297410 
03297415 
03297420 
03297425 
03297436 
03297435 
03297440 
03307100 
03307110 
03307120 
03307130 
03307140 
03307150 
03317500 
03624400 
03624404 
03624402 
03624408 


IF 3 SC#DC THEN 03624404 

BEGIN DIlsteDI*3s OS8=3 LIT " "3 END| 03624405 

END3 03624406 

FLAGS3s43 03624407 

END ELSE 03624408 

BEGIN STREAMCTS ("END") SSOURCE D3 03624410 

BEGIN SI:=SQURCES DItsLoc T3 03624420 

SIssSle13 DLssOl +53 03624430 

IF 3 Sc NEQ DC THEN TALLY!3i3 036244480 

TEsTALLYs 03624450 

END3 03624460 

IF POLISH THEN GO TO CE} 03624479 

END3 03624480 

BEGIN STREAM(SOURCEsKi T&S aPAPERTAPE )3 03624600 

IF SC3MARK THEN 03625308 

BEGIN DI:™Loc K3 O0S##3 LIT "END"; 03625319 

StseSyeits DI talle3; 03625326 

IF 3 §C80C THEN 03625330 

BEGIN TALLY%s23 KssS1s OLtaks 03625331 

TCOLMsOl "33 03625332 

OSsa3 LIT * ")5 03625333 

END ELSE TALLY!343 03625334 

ENDS 03625340 

RtsPOLISH3 03625600 

FLAGStsIF R THEN 4 ELSE 03625610 

IF CCRw2) AND PAPERTAPE) THEN 4 ELSE 03625620 

IF (CRe2) AND FLAGS) THEN 4 ELSE FLAGS3 03625630 

$t THIS PATCH IMPLEMENTS THE EGF BRANCH IF "QEND” IS TYPED 00000002 
$! To A REMOTE yOB AS INPUT, 00000002 
$s ALSO THE PARITY LABEL WILL BE TAKEN IF DATA IS NOT PRESENT AND A ZERQQ0000008 
$t TIME OUT WAS SPECIFIED, 00000002 
$t 000000024 
$tBY JCF 00000002 
SITR sees o0gd00g0gde 
$IDATE 3/6/73 00000002 
$# PATCH NUMBER 401 FOR TSSMCP,XVIe00 CONTAINS Q1 CARDS,FIVE MINUTE SLEEP LIMIT. 
TIMELIMITMAX © 3600 * S # 18000 3 $¢03 S401"GRK 22013136 


$3! 

$3 THIS PATCH INCREASES THE MAXIMUM SLEEP TIME ABOVE THE FENCE FROM 

$3 15 SECONDS TO FIVE MINUTES PLUS ONE MINUTE FOR EACH ACTIVE JOB. 

$3 FAR TOO MANY JOBS GET KILLED AT 15 SECS THAN IS REASONABLE, 

$i 

$$ G,.ReKENNEDY 25FEB76, BROCK U, PATCRH 401 

LRU CERISE SCSI SSCS ESO SOC VSSECLESOSOCERSES ESSE CE REESE EERE PERE REE SESE EEE SSS 

$# PATCH NUMBER 403 FOR TSSMCP,XVIe00 CONTAINS 01 CARDS,PREVENT FLAG BITS ON CMe 
STREAMC(BASE)3 BEGIN 3¢DSe_LIT"0"3 OleDI+7)3 ENDS Z403"GRK 09680450 


$: THIS PATCH PREVENTS SYSTEM HANGS CAUSED BY GARBAGE IN SEGMENT ZERO 
$$ IN PROCEDURE CHANGEMCP, 

$3 THE CURRENT MCP NAMECS) AND BASE DISK ADDRESS MAY HAVE THE FLAG BIT 
$? ON CIT HAPPENED AT LEASE ONCE) « 


$1 G@eReKENNEDY 17FEB76, BROCK Uy, PATCR 403 

(PRET RERRECESESERLAERCEESSSIOCCCAL ECAC SORE SERS ESE RS SEES SEE SERS ESE REE ES CE 

$# PATCH NUMBER 407 FOR TSSMCP,XVI,00 CONTAINS C4 CARDS, ,CONTROLCARD SCREWUP, GRK 
PCDIRECTORYSEARCH(NABS(CMMLO] )s IF CMMCO]<O THEN "DISK " ELSE 20606865 

$3 


$: 
$3 
$3 
$1 
$1 
$3 
$3 
$3 


THIS PATCH FIXES a PROBLEM IN CONTROLCARD WHICH CAUSED THE MCP SAVE 
CORE TO GRADUALLY INCREASE, THE PROBLEM WAS WITH CONTROL CARD 
ERRORS ON COMPILE CARDS, AT "INCSC" THERE WAS A CALL ON 
DIRECTORYSEARCH WITH #GMMC[QO) SO AS TO NOT RETURN TRE FILE HEADER. 
BUT * COMPILERS KAVE CMMCO} NEGATIVES SO eee 

RECEIVED FROM DREXEL UNIVERSITY BY PHONE ON 16JUL75, 


GeR KENNEDY 100CT75, 


BROCK Ue PATCH 407 


LERRPECESSOESLASCSCAOSLOSCCCCCCCEASESE CACC E CEES O EECA SE SEC ER SEE ERE SESE RE RRS 
$# PATCH NUMBER 410 FOR TSSMCP,XVI,00 CONTAINS O2 CARDS,LET "SD" OR "CL"™ WORK, 
JARCMIX96). CLELIOCCTYPES9) OR (TYPEs19))3 SDSs80Spa9e Chalo #410 
JAREMIXs6] ,0CASLISCCTYPES9) OR CTYPES19))S SO0SHBrSNB9e CL 819 %410 


Lavy 


THIS PATCH TO KEYING SHOULD ALLOW "SO" OR "CL" TO SAVE PSEUDO#DECKS, 
WE WILL SETUP THE “SAVE*THE*DECK" BIT BEFORE CALLING TERMINATE, AS 
IN THE DCMCPe 


GeReKENNEDY L3VUL76, 


BROCK Us PATCH 410 


[ERR C PERE CASE CCC CASCSESTS SCC CS CR ESE CEC L ESSERE SEER SE RPER ECE ESE REE RECESSES SD 


$# PATCH NUMBER 504 FOR YSSMCP,XVIe00 CONTAINS 22 CARDS,EOJN VOB STATISTIC S+GRKe 


REAL CPUIOR+143 %504°GRK 
PCO)3 “ZERO OuT CPUIO 4504"GRK 
CPUIQ*GETSPAGE(C102001)423 %504*GRK 
MCCPUIOS2) ¢VECTORIOI3 %JO8 PREFIx 4504"GRK 
MCCPUIO#3 J+ VECTORELI3 %J08 SUFFIX 2504"GRK 
MECPUIC+4)¢T3 %JQOB MIX INDEX %504*GRK 


MECPUICHS JC CSCLJENEXTMOM)4+30)DIV 6048 CPU TIME %504"GRK 
MECPULO+O] #CCSCAJ@VECTOR(4I + {OTIMECIII+I0 HIV 603 4504"GRK 
MCCPUILO#? y#SCIeCL COT JeSCCI)xCHUNKZI ZE*CHUNKZI ZE3 4904 


STREAM(IsCPUIO)3 %504°GRK 
BEGIN DS¢S5LIT" FoR "3 SI*CPUIOS SI*SI+173 Z504°GRK 
DS*7CHR$ OSeLIT"/"3; SeSI4+13 DSe7CHR3 350 4"GRK 
DSe_LIT"|e"3 OS*2DECS TeNIs OleDI #23 %504°GRK 
OS*FILL3 pels PSeSLIT*IPSTH"; DSe5pECs %504"GRK 
IeOTs Olepr*5s OSe4FILLs Olels %504°GRK 
DSeSLIT*sIOT#"3 OSeSDECS I*DIs OLeOI*5s 4504°GRK 
CS*GFILL3 OleIs DS*OLIT*s CORER"; %504°GRK 
DS*S5SDEC$ feOIs OLeDI#53 OSe4FILL %504"GRK 
Dle#ys OSeLITMe™S %504°GRK 
END STREAM3 %504"GRK 
SPOUTER(CPUIQSUNITNO264)3 %504°GRK 
IF UNITNOZO THEN Z504"GRK 


THIS PATCH PROVIDES THE EQY JOB STATISTICS MESSAGE SIMILAR TO 
THE OCMCP MESSAGE, IN ADDITTIONs MAXIMUM CORE USAGE IS PROVIDED, 


SPOUTER DOCUMENTATION SPOUTERC MESSAGE sUNI TNOs TYPE) 

EEDSSS ESBS ts ea eessr23 SHPSELATATSST eres ekKesgzersese 

DEFINES t SPOUTCMESSAGE) #= SPOUTERCMESSAGEs 001) 

seasenwame SPOUTITCMESSAGEsTYPE) = SPOUTERCMESSAGEs Os TYPE) 

NOTES ¢ “"CONDITION@= MESSAGE DISPATCHED COMMENTS 

Sta Kadtaaled UNITNO TYPE SPO PACKET LOG 1 8 9 on OO Ge FE OD OR an am mm mm a 
N/A 0 N Y Y 
N/a 64 N Y N FOR PACKET PAGE ONLY 
N/A NEG, N Y N 


16212100 
16216000 


14351306 
14355060 
14413020 
14413030 
14413040 
14413050 
14443060 
14413070 
14413080 
14430031 
14430032 
14430033 
14430034 
14430035 
14430036 
14430037 
14430038 
14430039 
14430040 
14430044 
14430042 
14430043 


2 N/A TRUE Y Y Y 
$ 
$3) GeReKENNEDY LOUUN7G, BROCK Us PATCH 504 
$3 THIS PATCH IS NEEDED BY PATCH 509 
[URE PRPSCCECESCSERCCCSOSCSCOOCCCCSSC CES EASE E EEE ESE ESLER ER SEER ERE RE ERE RRS ESS 
$# PATCH 508 FOR TSSMCP,XVe3 CONTAINS 4&4 CARDS, PREVENT FILERKOLD FOR "CH 
$i THIS REMOVES A POTENTIAL INVALID LINK PROBLEM IN PROCEOQURE LIBCC WHIC 
$! WOULD OCCUR IF A FILE WERE REMOVED WHILE IN THE PROCESS OF BEING 
$1 A) REMOVED OR B) CHANGED, 
$1 THIS ALSO PREVENTS A FILE HoLO SITUATION FROM OCCURRING WHEN A CHANGE 
$! COMMAND IS ENTERECO FROM A REMOTE TERMINAL,» 
$3 NATAL Ue PATCH 508 

IF T GEQ 64 THEN 

TeDIRECTORYSEARCHCCMMCO] sCMMCLIECPCUNITNOsDUP 2825 OR 
PCXCH)*90)CL84724104)3 ENDS 

IF YT GEQ 64 THEN 

PERE UREREAESCCCCOSSCRSE SESS RCE R CSAC E CESSES ESOS RSE E RECESS SERRE EEE ES LS 


$# PATCH NUMBER 509 FOR TSSMCP,XVIe00 CONTAINS 17 CAROS,PRNPBT/LOCNTRL B 


IF P THEN MAKELOGC( MESSAGES ABSC TYPE) 23 %509°GRK 
ENDS IF TYPE LSS 0 THEN TYPES #643 %509*GRK 
SPOUTITCLOGINF Os 4509°GRK 
64)3 %509*GRK 
SPOUTITCVECTOR INX 0» 4509"GRK 


IF NOT € CMCCPUIO+3) EQv "DISK *")eNOT 0 ANDS909 
¢ CMECPUIO42) EQV "PRNPBT ")SNOT 0 ORZ509 
CMCCPUIO¥2) EQV "LOCNTRL™)®NOT 0994509 

THEN CCLINK OR CANDYMESS) AND EQUMESS %509"GRK 
AND CNOT JAR9),C291) OR EQVK) 4509*GRK 

ELSE *EQJK)3 %509*GRK 

SPOUTERCT#UNT TNO, %509"GRK 
IF NOT € CJAROMIXe21] EQV "DISK ")sNOT © AND 2509°GRK 
€ CJARCMIX20] EQV "PRNPBT ")3NOT 0 OR %509"GRK 


CJARCMIX20] EQV "LOCNTRL™ NOT 0) 2 %509"GRK 
THEN CCCNOT $£0))202813 OR CANDYMESS) 4509°GRK 
AND BOYMESS AND y¢ OR BOJK) ELSE *BOYK)3 4509"GRK 


$! THIS PATCH SUPPRESSES ALL "BOW" AND "“EQY" SPO MESSAGES FOR 

$3 "PRNPBTYDISK™ ANDO "LOCNTRL/OISK". THIS SHOULD HELP ELIMINATE 

$: SPO "CLUTTER". 

$3 NOTE THAT SPOUTER HAS BEEN MODIFIED TO LOG NEGATIVE MESSAGE TYPES 
$1 BUT NOT SPOUT THEM (SIMILAR TO TYPE 64 # BUT TYPE IS RETAINED). 


$8 G,ReKENNEDY BIMAY76.¢ BROCK Ue PATCH 509 

$$ THIS PATCH USES VARIABLE CPUIO WHICH IS DEFINED IN PATCH 504 

$3 CORRECTED TO INCLUDE BOUMESS BY OR» UCSC 

$3 SEE ALSO DREXEL U, PATCH 716 

LPR RTECECECESISACESI CECA C ECCS RCS CCEA ESE SERRE ER ER CAE REESE REESE SDS 
$# PATCH 510 FOR TSSMCP.XVe3 CONTAINS 2 CARDS, INITIALIZE TYPED PROCEDY 
$! THIS PATCH CORRECTS AN ERROR INTRODUCED BY PATCH NUMBER 24 TO MCP eXV¥ 
$% WHERE THE VARIABLE PROCVAL waS NOT INITIALIZED IN THE PROCEDURES 

$: "ACESBIT" AND "CCCOMPILE’s WHEN RETURNING FROM THE PROCEQURES THE 

$3 VALUE OF THE TYPEC PROCEDURES WAS TAKEN FROM THE LAST VALUE OF 

$1 PROCVAL. THIS CAUSED O00 ERRORSe EeGe THE CARDS! 

$: @ LOAD FROM XYTAPE ANY/NAME 

$3 @ COMPILE PROG/NAME FORTRAN 

$t WOULD RESULT IN "CONTROL CARD ERROR AT FORTRAN", THE TYPED 

$3 PROCEOURES ARE NOW INITIALIZED. NOTEs= ACESBIT NOW CCSET 


ANGE" 
H 


20574917 
20577826 
20577827 
20577828 


Oy/EQy 

02134000 
02134005 
12704000 
12704100 
14430000 
14430002 
14430004 
14430006 
14430008 
14430010 
14430012 
20104200 
20104300 
20104310 
20104320 
20104330 
20104340 


RES 


$t NATAL Us. PATCH 510 
CCCOMPILE«O3 20584340 
CCSET+O3 20711100 
[SRC RRPREER SESE ESECSOSSCCOC OCLC CLES ERSEREE ESSERE REE SEA ERR E SERRE ESSERE SER ERE SAE 
$# PATCK S11 FOR TSSWCP,XV.3 CONTAINS 4 CARDS, "PC" WITH 65 JOBS ON DISK 
$1 THIS IS TO FIX THE CASE WHERE THERE ARE 65 yO8S ON OISK AND A "PC" IS 
$1 DONE. PRIOR TO THIS THE MESSAGE WOULD COME QUT ASt* 65 JOBs #NNNN 
St WHERE "NNNN” WAS THE NUMBER OF THE LAST DECK ON DISK, 
$$ NATAL Us PATCH 811 


STeLOC Tis 07295100 

IF SC#"0" THEN GO TO AQ 07295102 

ELSE SI*Sleis 07295104 

AQ: BEGIN OS¢3 LIT "Se "3 07295160 


CHRP P PERRET ACASCA CECE CET CCECECCCSCCCCC SESE CRASS SAO CE SECS ESE E ESSE EES E SEE EE | 
$# PATCH 512 FOR TSSMCP,XVe3 CONTAINS 7 CARDS. ERROR PROGRAM PARAM CAROS 
$3 THIS PATCH REARRANGES SOME CODING IN PROCEDURE PRPC FOR CLARITY AND 

$1 GENERATES A CONTROL CARD ERROR FOR IDENTIFIERS ON PROGRAM PARAMETER 

$! CARDS WHICH ARE UNDEFINED s 

$i NATAL Us. PATCH 512 


ELSE IF TYPEsCOREY THEN 20504500 
BEGIN X€20)] © TPNO OIV 643 20505000 
DO UNTIL (IOD * SCAN)*#MAXY OR JOO#PERIO3 20507000 
IF I@O08MAxXV THEN PCCXC20)]e1TOR) ELSE GO TO DOWNS 20507100 
END 20507200 
ELSE IF TYPE2PRIQR AND TYPESSAVEV THEN 20507300 
XCLO¢TYPE*PRIORJeTPNO ELSE GO TO ERRORS 20507400 


SE ee te ea ERA EKER EMT AREER TREAT KEKE SE 
$# PATCH 517 FOR TSSMCP CONTAINS 3 CARDSe QVERLAY DISK SPACE YSED UP 
$: WHEN A PROGRAM HAS EXCEEDED {TS OVERLAY DISK SPACEs THIS PATCH WILL 
$t CAUSE THE mCP Ton ISSUE THE MESSAGE "ARRAY OLAY SPACE USED UP WHEN 

$1 DseING THE PROGRAM, INSTEAD OF "INVALID ARRAY SIZE ION". THE LATTER 
$3 MESSAGE IS MISLEADINGe 

$: BY STEVE KELLEYs REQUESTED BY NATAL Ue MAY» 1974 

$3 NATAL Ue PATCH 517 


$! MODIFIED FOR TSSMCP BY DR» uCSC JAN, 175 1977 
TERMINATE CMIX& S9CCTR IDS 06411010 
"BARRAY "» “BOLAY Ss x 99 41445700 
"BPACE UM» "6SED UP» % 41445800 


\MREEEREERAEECAAESCASAESE COREE SESACCRAS ECE PERSE OSCE SESSLER SEER EE ES EES SE 

$# PATCH NUMBER 519 FOR TSSMCP,XVI2e00 CONTAINS O12 CAROS, ENABLE "FILE IN USE" Oke 
BEGIN T#VWY8VOKC 3684286] GC VIF KAGC394120308428633 BSY9"GRK 18025000 

$1 

$: THIS PATCH ENABLES "#FIL IN USE” SITUATIONS TO BE “QK@ED%. 

$! PREVIOUSLY CEXCEPT FOR LIBMAIN) THE ONLY ALTERNATIVE WAS "DS", 

$t 

$! G&,R.KENNEDY BOWAN76, BROCK U, PATCH 519 

$! SEE ALSO UCSC PATCH 815 

LURES ERCP E SERS SECESAS ESOC SOCOC SCC ORS ER EE EER EERE ERER EERE PRES ER ESE E EEE EES | 

$# PATCH 521 FOR TSSMCP,XVe3 CONTAINS 17 CARDS. FIX PROCEDURE "CCSET” 

$! THIS PATCH FIXES THE MESS THAT PROCEDURE CCSET IS IN, 

$3 THE PROBLEMS FIXED ARE! 

$$ A) FILE HEADERS OF ALL FILES REFERENCED BY TKIS PROCEDURE ARE LEFT 

St IN CORE, 

$$ B) DIRECTORY WAS BEING UNLOCKED IN MANY CASES WHEN IT WAS NOT LOCKED 

$1 BY THIS PROCEDURE, 

$1 C) DISK HEADER WAS BEING WRITTEN BACK UNALTERED AT LINE 20739000 

$1 INSTEAD OF A FORGETSPACE ON THE HEADERs 


$t NATAL U, PATCH 521i 


BEGIN Te2s GO TO Lis ENDS 20730000 

BEGIN FORGETSPACECT)3 Te1s GO SKIPS END3 20739000 

$ VOIOT 20739100 
$ VOIOT 20739200 
ELSE BEGIN 20769000 

$ SET OMIT = SHAREDISK 20769100 

UNLOCKDIRECTORY3 20769200 

$ POP OMIT 20769300 

LBMESSCCMM(2] sCMML 3] 9*(114TOG)24120+SPOUTUNIT»s 393 20769400 

ENO3 20769500 

FORGETSPACE(T)3 20769600 

ELSE BEGIN 20771000 

$ SET OMIT # SHAREDISK 20771010 

UNLOCKDIRECTORYS 20771020 

$ POP OMIT 20771030 

END} 20772050 

$ VOIDT 20772304 20772100 


PRR PROEPESCESCO CRE LECESCSOCCLCCCAE CCR CC ESE E SSE ESE E ERLE REE ERE REE RE EASE RS ESS 
$# PATCH 523 FOR TSSMCP.XVe3 CONTAINS 1 CARD, "RESERVE DISK REMOVED" SPO ONLY 
$t THIS PATCH MAKES THE “«## RESERVE DISK REMOVED” MESSAGE GO TO THE SPO 
$: ONLYe PREVIGUSLY IT ALSO WENT TO THE MESSAGE PAGE FOR THE JOB, 
$3 NATAL Ue PATCH 523 
SPOUTER(Ze25e(NOT LIBMSG) AND 1)3 06353660 
PRUE CPEREC AES ESSR CEO CESESCECE SESSA SEL EER EES EERE RES SAE ERE E SESE ESE RES AEE RS 
$# PATCH 52? FOR TSSMCP CONTAINS 3 CARDS, FIXES TO "SET" AND "RESET" 
$: THIS WILL ALLOW ONE TO ENTER A "SET" OR "RESET" CONTROL CARD FROM 
$3 THE SPO AFTER A CONTROL CARD ERROR ON THE LAST INFORMATION ENTERED 
$t From THE SPO, PRIOR TO THISs EVEN THOUGH THE CORRECT INFORMATION WAS 
$: ENTERED FOR A SET OR RESET CONTROL CARDs THE FIRST WORD WOULD NOT BE 
$1 RECOGNIZED» RESULTING IN A FURTHER CONTROL CARD ERROR, 
$t THIS WILL ALSO FIX THE CASE WHERE A SET OR RESET CONTROL CARD 
$: FOLLOWED AN EXECUTE CARDe THE SET OR RESET WAS BEING TAKEN AS A 
$1 PROGRAM PARAMETER CARD, 
$t NATAL U, PATCH S27 


$! MODIFIED FOR TSSMCP BY DR» yCSC JANe 172 1977 
CONTROLA! IF (T < FILEV OR T > COBOL) AND ACCUMCO] # CMPLR THEN 20604300 
IF T GEQ UNLOCKV ANDO T LEQ RESETV THEN GO TO FINIS 20604350 
IF CT2ZPACKET) AND CTSRESETV) AND CTARUNV) THEN 20608078 


HRT TTTTTT ELITE TTI TETE TI TITLITTLLL LiL: 
$# PATCH 528 FOR TSSMCPR CONTAINS 1 CARD, TRY OISK SPACE AFTER RESERVES REMOVE 
$3 THIS CAUSES ANOTHER ATTEMPT TO GET OISK SPACE AFTER RESERVE DISK IS 
$: REMOVED INSTEAD @F SPOUTING NO USER DISK AND FORCING THE OPERATOR 10 
$: DO AN "OK" FOR THE JOB, 
$? NATAL Us PATCH 528 
$% MODIFIED FOR TSSMCP BY DRe yCSC wWANe 178 1977 
FORGETSPACECBUFF)S PCXIT)3 06353675 
TRE TETTTIETT TTT TLE TTT TE LLETILLI LIL LTLihcitceteci) 
$# PATCH 534 FOR TSSMCP CONTAINS 3 CARDSe FIX "XT" & "CT" FOR #oN & “"*#<EMPTYD 
$! THIS PATCH CORREGTS PROCEDURE "TIMERELAXER®™ SQ THAT THE INPUT 
$: COMMANDS "XT" AND "CT" WORK CORRECTLYe PREVIOUSLY IF THE CHANGES 10 
$1 THE TIME ESTIMATES WERE OF THE FORM **#N THEN AN INV KBD RESULTED 
$1 THIS WAS BECAUSE AFTER PINDING THE * » SI WAS NOT INCREMENTED TO SKIP 
$: OVER IT, 
$t THIS ALSO FIXES TRE CASE WHERE THE IOT IS OF THE FORM "s<EMPTY>", 
$! PREVIOUSLY» THIS WOULD ALSO HAVE GIVEN AN "INV KBD", 
$! NATAL U.s. PATCH 584 


IF Sc=" " THEN GO Lis ENDS 
IF Scst*" THEN BEGIN SleSi4i1s GO L53 ENDS 
IF Scse" THEN BEGIN TALLY#1s GO EXITS ENDS 


LER PCRCERSS EES SE CCS ES OCCOCCSCOOSES EELS EEE REESE ESR ERC SEER ERR EASES ESE ES 


$# PATCH 538 FOR TSSMCP.XVe3 CONTAINS 23 CARDSe FIX PROCEDURE CHANGEOPT 
$t THIS PATCH FIXES SOME BAD CODING IN PROCEDURE CHANGEGPTION WHERE THE 
$t SCAN MAY GO PAST THE ENO OF THE INPUT BUFFER. IT IS A RE*WRITE OF 
$3 THE SCAN PORTION. IT ALSO MAKES THE USE OF THE WORD "USE" OR "U" 
$$ OPTIONAL IN THE So OR RO WITH THE OPTION MNEMONIC CAS WITH THE OPTION 
$! NUMBER). 
$$ NATAL Ue PATCH 585 
LO8 SI*BUFF3 
Lit IF SC" ™ THEN BEGIN SIeSI4+13 GO TO 445 END3 
IF SC<"0" THEN 
IF SC#%e" THEN 
BEGIN TALLY+O4 TeTALLYS DIeL OC T3 
BCIF SCa" ™ THEN JUMP OUT ELSE 
IF SCate THEN JUMP OUT ELSE 
IF SC2"0" THEN JUMP OUT ELSE DS«CHR)3 
BUFFeSI3 SIeOPTERS 
63(DIeLOC T3 


IF 8 SC™OC THEN JUMP OUT TO L2 ELSE 
IF SCaten THEN JUMP QUT TO LO ELSE TALLYeTALLY41)3 
GC TO L33 
L23 IF Sce"e" THEN GO TO L403 
END ELSE 
L 3% TALLY@48 ELSE 


BEGIN DleLOc Ts SleSI+43 
IF SC<"0" THEN BEGIN SleSleis DSe1 OCT END 
ELSE BEGIN SleSIe1s; DS*2 OCTs ENDS 
TALLY@G#3 TCTALLY*TALLY 46393 
ENDS 
TeTALLYS SIeLOC Ts DIe*RJ DSeWDS; 
$ VOIDT 


PURER ECTESEAESECECO PERSO RECCESCA CRC OSE CSCC A ES SESE RSAC S ESE SEE CERES EES ES ES SE 
$# PATCH 538 FOR TS8MCP.XVe3 CONTAINS 2 CARDS, FIX TIMING PROBLEM WITH 
$: THIS PATGH CORRECTS A TIMING PROBLEM WITH A PROGRAMMATIC PURGE OF A 
$! TAPE FILEe THE PURGE IS HANDLED BY AN INDEPENDENT RUNNER WHICH KAS 
$3 TO WAIT UNTIL THE TAPE HAS REWOUNDse IF A PROGRAM CLOSES FILE "a/b" 
$3: WITH PURGE AND THEN TRIES TO OPEN FILE “ase"s IF THE PURGE HAS NOT 
$$ OCCURREDe JT MAY TRY TO GRAB THAT UNIT CSEE FINOQUTPUT @ 37027000). 
$t THE PRNTABLE STILL CONTAINS THE POINTER TO THE TOP 370 DESCRIPTOR» 
$! THE SPACE FOR WHICK HAS ALREADY BEEN FORGOTTENs SO THAT IT MAY PICK 
$1 UP GARBAGE. THIS IS FIXED BY SETTING THE MIX INDEX OF THE PROGRAM 
$: ASSIGNED TO TRE UNIT TO ZERO IN THE RDCTABLE BEFORE STARTING THE 
$3 INDEPENDENT RUNNER TO PURGE THE TAPE 
$i NATAL Use PATCH 538 
BEGIN ROCTABLECUI,(816)¢0;3 

FORKCPC,PURGEIT)»Use2e12801) END ELSE SETNOTINUSECUS0)3 
CURR ERESPCEESAECESECESETAELCACALCEIA CACC E RCC S CECE RCE CESSES EEE EEE EES EE SE FE 
$# PATCH 539 FOR TSSMCP,XV_e3 CONTAINS 2 CARDS, PURGE OF TAPE AFTER CLLP 
$3 THIS PATCH CORRECTS THE CLLP* WHEN PRINTING FROM A BACKUP TAPE WITh A 
$t W/RINGe THE TAPE IS NOW REWOUND AND PURGED CORRECTLY,» PREVIOUSLY» 
$! THE PURGE DID NOT TAKE PLACE. PRIOR TO THIS FPATCHs PRNPBT/OISK 
$: REWOUND THE TAPE AND STARTED AN INDEPENDENT RUNNER CPURGEIT) TO DO 
$3 THE PURGE. TERMINALMESSAGEA VIA UNHOOQUE FOUND THE TAPE IN USE BY 
$? PRNPBT/OISK FROM ROCTABLELI).€C886] ANO SET TRE UNIT NOT READY IN 


08739000 
08739500 
08749500 


ION 


08634000 
08635000 
08636000 
08637000 
08638000 
08639000 
08640000 
08641000 
08642000 
08643000 
08644000 
08645000 
08646000 
08647000 
08648000 
08649000 
08650000 
08651000 
08652000 
08653000 
08654000 
08655000 
08656000 


PURGE 


38788500 
38789000 


* 


$3 LABELTABLE (€8@114). WHEN THE REWIND WAS COMPLETEs STATUS FINDS THE 
$1 TAPE NOT READY AND FORGETS THE PURGE» LEAVING PURGEIT UNLINKED IN 
$$ CORE WAITING ON AN I/O COMPLETEs CUNIT SAYS NO J/0"S BUT IOQUE SHOWS 
$1 IT/O*S FOR WHICH THE SPACE HAS NOT BEEN RETURNED), 
$! NATAL U,. PATCH 589 
BEGIN ROCTABLECUNIT].0816)¢03 12928400 
END 12528600 
GE te te ee ER EEE REED RHEE RE EEE REE EEE 
$# PATCH 540 FOR TSSMCP CONTAINS 1 CARD. FIX "IL" FOR "#NO FIL ON DISK" 
$1 THIS PATCH CORRECTS THE RESULT OF AN "IL" INPUT MESSaGE IN REPLY TO 
$3 aA “#NO FIL ON DISK*™ CONDITIONe PREVIOUSLY» IF AN "ILCD®™ WAS INPUT» 
$t A SYSTEM HANG RESULTEDe THIS WAS BECAUSE THE TEST WaS FOR AN ACTUAL 
$t UNIT RATHER THAN ALL UNITS, 
$$ NATAL U. PATCH 540 
$: MODIFIED TO USE MAGIC NUMBER 359 BECAUSE TSSMCP DOES NOT HAVE 
$! PSEUDOMAXT, OBSERVE ON LINE 00277000 OF TSSMCP THAT TINUC35] = DATA 
$1 FOR THE LAST PSEUDO READER» 8Y OR» UCSC JAN, 17% 1977 
IF (SHeT2¢REPLYCPIMIXIJeCFF J) > 35 THEN % IL 06463380 
Sa EERE EEE EERE ERATE RET EE ee 
$# PATCH 543 FOR TSSMCMeXVI4O CONTAINS 13 CARDS. FIXES TO NEW LIBMAIN 
$: THIS CORRECTS A NUMBER OF PROBLEMS IN THE NEW LIBMAIN/DISKe 
$: 1, IF MORE THAN ONE EXCEPTION LIST APPEARS WITHIN ONE CONTROL CARDs 
$: THEN THE SPACE FOR ALL ExCEPT THE LAST IS NOT FORGOTTENe 
$3 FIXED AT 20570070 ANO 20573350. 
$$ 2, IF THE EXCEPTION LIST CONTAINS MORE THAN 13 FILE NAMES AND THERE 
$3 IS AN AS CLAUSE» THEN A CONTROL CARD ERROR MAY OCCUR EVEN THOUGH 
$1 THERE REALLY IS NOT ONEe THIS IS BECAUSE THE ORIGINAL FILE NAME 
$! HAS BEEN QVERWRITTEN BY THE EXCEPTION LISTe FIXED AT 20569930 ETC 
$3 3, FIX TO USE DEFINES RATHER THAN CONSTANTS 
St NATAL Ue PATCH $43 


IF T GEQ@ COPYN AND T LEQ LOAD THEN 20566807 
IF T GEQ@ COPYN ANO T LE@ LOAD THEN 20566822 
Tie lL463L J ©HOLDZ* CONE QUAL DS 20569930 
IF HOLD3 THEN PROGCCNTJ$ee1 ELSE 20569935 
IF CN GEQ@ IDENT THEN PROGECNT)&#ACCUMCO) ELSE GO POWIES 20569940 
TLsC47ELIGHOLDZ¢CCCNeSCANIBEQUAL D3 20569960 
IF HOLD3 THEN PROGCCNT4#1] #1 ELSE 20569965 

FORGETSPACECXLST)3 XLST3a03 20570070 
IF CCNeSCAN)SEQUAL THEN IF Ti1,046%1) THEN 20570138 
ELSE IF CN GEQ IDENT THEN IF Tiel4681] THEN GO POWIJE 20570150 
IF CCNeSCAN) EQUAL THEN IF T1 THEN 205701490 
ELSE IF CN GEQ IDENT THEN IF Ti THEN GO POWIE 20570210 
IF XLST NE@ O THEN BEGIN FORGETSPACECXLST)3 XLST##03 ENDS 20573350 


CURTETTTELIL ETAT ITLL LETTE trier cere r i ae) 
$# PATCH 548 FOR TSSMCP,XVI,0 CONTAINS 1 CARD, WRONG FIB GHECK IN FINDQUTPUT 
$1 THIS PATCH PREVENTS FINDOUTPUT FROM CHECKING ON A NONPEXISTENT FIBe 
$! THIS SHOWED UP B¥ USING 

$1 CC CQ@PY s/s FROM A TO A3 END 

$1 WHERE THE SOURCE TAPE HAD A WRITE RING. LIGMAIN/OISK READ THE 

$1 DIRECTORY CORRECTLY ANDO THEN TRIED TO FIND THE OUTPUT TAPE, 

$t FINDOUTPUT THEN FOUND THE TAPE OF CORRECT NAME» IN USE BY 

$$ LIBMAIN/BISK» WITH A WRITE*RING AND TRIEO THE “FIB". 

$t PRNTABLECU].€15215) WAS ZERQ SQ THAT M(MC3)45),C4181) WAS TESTED, 

$t (M03) CONTAINS THE MCP VERSION NUMBER), THE CONTENTS OF THE MEMORY 
$t CELL TESTED COULD BE SUCH AS TO SATISFY THE TESTe THUS» LIBMAIN/DISK 
$1 THEN WROTE AN OUTPUT LABEL ON TRE SOURCE TAPE AND FINALLY WHEN TRYING 
$3 TO DO THE NEXT READ,» DEGIDED THE TAPE WAS NOT A LIBRARY TAPE, 


$% THIS WOULD ONLY @CCUR IF THE SOURCE TAPE HAD A NON*ZERO PRNeo 
$1! BY RAY BARTHO*s NATAL Us PATCH 548% MARCH 295 1976 


IF 73,015%#5]40 THEN % DONT USE NONEXISTENT FIB 


A ichhahehdieieileteheted teh tthe tt LEELA LET LEE LETTE TELE ELLE TCE eT Tee Tee TT 


$# PATCH 549 FOR TSSMCP,XVI.0 CONTAINS 5 CARDS. AUTO "QU" FOR "NO SORT 
STREAMCPIMI Xs TORSXROs ACI eSPACE(7) D3 
BEGIN DSe¢LIT ","3 STeLOcC PAIMIX3 XSPOUT es NOT HM, AGRK*549 
REPLYCPIMIXI,{CF) © 83 
J ¢ 3 
$ VOIDT 18791704 
$! THIS PATCH PROVIDES AN AUTOMATICALLY ASSUMED RESPONSE OF "OU" TO THE 
$t "NO SORT MEM" MESSAGE.» IN ADDITION» THE PREFIX OF THE MESSAGE 
$t HAS BEEN ALTERED TO %." FROM "#"» TO IDENTIFY THIS MESSAGE AS 
Si "INFORMATION ONLY" INSTEAD OF A "REQUEST FOR OPERATOR INTERVENTION 
$! G,R«KENNEDY 12FEB875, BROCK Us, PATCH S49 
$t MODIFIED BY ORs UCSC» TO DELETE FROM THE SOURCE» THE CODE THAT NEVER 
$3 CAN BE EXECUTED AS A RESULT OF BROCK Us PATCH 549, WANe 179 1977 


37027500 


MEM" 

18790600 
18790700 
18791200 
18791300 
18791400 


$i SEE ALSO UCSC DCMCP PATCH 743» NATAL Uy PATCH 713» DREXEL Us, PATCH 751 


 iekelehehshchetehaidahdeddeded ded tet ttt ae RELL ELLE LEE LTE LTTE LETTE ee TTT Tere eee 


$# PATCH 550 FOR TSSMCP.XVI.0 CONTAINS 3 CARDS, RESTART LOG AFTER INTERRUPT 


$1 1F AN EXTERNAL INTERRUPT E.G, JOBUSY> IOCOMPLETEs PRINTERF INISH» 
$1 TIMER OCCURS SIMULTANEQUSLY WITH A PROCESSOR DEPENDENT INTERRUPT EeGe 
$s COMMUNICATE» THEN THE EXTERNAL INTERRUPT WILL BE KANDLED FIRST AND 
$1 THE LOGGING STOPPED FOR THE JOBe IF THERE ARE NQ INDEPENDENT 
St RUNNERS WAITING TO BE STARTED AND THERE IS NOTHING In THE BEDs THE 
$t LOGGING WILL NOT BE RESTARTED FOR THE yoB WHEN ITS INTERRUPT IS 
St HANDLEDs THIS WAS DISCOVERED WHEN USING THE TIMEC2) FUNCTION. 
$! By RAY BARTHOs NATAL Us PATCH 550» APRIL 215 1976 

© SET OMIT = NG@TCNEWLOGGING) 

STARTLOGCPUMIX)3 
$ POP OMIT 


A lshehahehchelduieAelehsheh debehdkehehel tel LLEEE LLL LL LEE ELLE ILE LIL TT STEP CCCTeT TTT 


S# PATCH 560 FOR TSSMCP CONTAINS 4 CARDSe SMALLER PBD RqW SIZES 
$i BROCK Us. PATCH 560+ NATAL U, PATCH 732 
DEFINE PAGESIZE = 4go#3 % PACKET PAGE PBD SIZE 

150# % SEGMENTS PER ROW 

O50# % PHYSICAL RECORDS PER ROW 

1000#% PHYSICAL RECORDS PER FILE 


A ilehdelhehitethetdd dd tte ELT LETT ETT LOLA LTE TTT TLL PE eT eee ere T er eeeeee es 


S# PATCH 601 FOR TSSMCP CONTAINS 2 CARDS, FIX PBO NO DISK DS 
S$! CORRECT CLOSING ACTION FOR PBO/PUD FILES IN BACKCLOSE AFTER 
$t A NO USER DISK D8$ FILE WOULD GET STUCK IN USE, 
$! DREXEL Us PATCH 601 8/10/75 
S$! MODIFIED FOR TSSMCP BY DR» UCSC FEBse 4» 1977 
$t SEE ALSO OFFICIAL PATCH 155 TO DCMCP OR 148 TO TSSMCP» AND 
$i DREXEL U, PATCH 662 
ENDS 

$ VOroOT 
Adshehdaddehtiilehded tel dt ttt tPTcT TTT LLL TTL LETT TTTPT TT TTerreeeeere Teer Tree 
S# PATCH 602 FOR TSSMCP CONTAINS 4 CARDS, BAD INCW 
$1 THIS PATGH WILL "SD" A JOB THAT GETS INTERRUPTED AND "ANALYSIS" 
$! SEEMS TO THINK ITS INCW IS IN LOW CORE» LIKE MCO], 
$i! ITS HAPPENED A FEW TIMESs KILLING MEMORY CELL ZERO, 
$1 DREXEL Use PATCH 602 10/5/75 
$1 MODIFIED FOR TSSMCP & TO NOTIFY US IF THIS CONDITION EVER ARISES AT 
$t UCSC» BY DR UCSC FEB, 14» 1977 

IF INCWelCFJ<@1777 THEN % SOMETHING VERY WRONG 


48100499 
48100500 
48100501 


02113091 
08699150 
08699358 
08699500 


00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
38601100 
38621500 


14015200 


BEGIN JARCPIMIXe6]eCi8iJ¢13 % SD BIT 14015210 
FILEMESS(®"SEE TSS"s" PATCH "909090202602 )3KLUGE MSG&0914015220 
ENDS 14015240 

(oR RCC EPEC ORES ECS CSE CECE ECS ECLECECRSERL EEE SRE RE RE PRR REESE SAREE SRSA R SEE BS 
S#PATCH NUMBER 603 FOR TSSMCP CONTAINS 19 CARDSe FIX COPY 11041072 
FORM = 77#s% SWITCH DCPCC)"FORM"="SPECIAL™ 20240000 
LRANDOMs 20392890 
SWITCH O*LFORM, 20394000 
LRANDOMs 20394090 
LNOsLDISK»LTAPEsLPUNCHeLPRINToLPAPERs 20394900 
TPNO*#123 GO TO DSKCWECKS % "DISK" MEANS DISK SERIAL 20457000 
BEGIN TPNO*213 IF TYPE=COPYN THEN BEGIN 20461300 
TPNO*223 GO LCOPY END ELSE 20461310 
IF SCAN#BACK THEN GO ERRORS 20461320 
ENDS 20461330 
IF TYPESCOPYN THEN BEGIN TPNO*223 GO LCOPY END ELSE 20461810 
BEGIN TPNO*4$ IF TYPESCOPYN THEN BEGIN 20470000 
TPNO*153 GO TO LCOPY END ELSE 20470400 
IF SCANZBACK THEN GO ERRORS 20470110 
ENDS 20470120 
IF TYPESCOPYN THEN BEGIN TPNO#163 GO LCOPY END ELSE 20475100 
LRANDOM$ TPNO*103 GO TO DSKCHECK3 20481900 
"FORM = "y 77» % SWITCH DCPCC) 41485600 
"RANDOM ", 78 > 41485610 


$1 

$3: THIS PATCH CORRECTS THE INABILITY TO SPECIFY COPIES wITHOUT 
$t ALSO SPECIFYING BACK UP OISK ON THE FILE CARDe 

$t MODIFIED 12/2/73 © SPECIFYING "DISK" ON A FILE CARD NOW MAKES 
$3 IT A SERIAL FILE, EXt @ ALGOL FILE TAPE#A/B DISK 

$% MODIFIED 12/21/75 « SPECIFY “RANDOM® TO GET RANDOM DISKe 

$3 MODIFIED 12/21/75 TO MAKE OTHER PATCHES FIT BETTER, 

$3 FROM OREREL UNIVERSITY = JHH * 5/21/76 

$t THIS PATGH IS AFFECTED BY PATCH 724 


(UR EPPCRT CEC CACOCCCCICCCCCCCCOCSITSC COSC SCSORL SEO EECA SSE ETE ESTE ESE REE ES 


$# PATCH 604 FOR TSSMCP CONTAINS 1 CARDe DISK ADDRESS ERROR 00000100 

$! THIS PATCH CORRECTS FOR AN UNDETECTED DISK ADDRESS ERROR AT H/Le 00000200 

$3 DREXEL Ue PATCH 604 3/20/76 00000300 
IF CRAPRL) GEQ RADD THEN RLEN $@ 0 ELSE 40060060 

IR ESTTTELTIET PLES TEEPE LITT LIT titer eee 

$# PATCH 639 FOR TSSMCP CONTAINS 2 CARDS, EGF FSEUDQ#RORS 00000100 


$1 THIS PATGH CORRECTS AN EARLY EOF ON PSEVDQ*RORS WHERE THE LAST CARD 00000200 
$: IN A DECK CUSUALLY AN "END® CARD) WOULD NOT GET LISTED IN THE PACKETe 00000300 
$! MODIFIED 8/18/74 TO aVOIO A SUPERFLUGUS READ ON DISK SEG ZERO CAUSED 00000400 


$! BY THE ABOVE PATCH, 00000500 
$3 DREXEL Us PATCH 639% ORIGINALLY 8/8/73 00000600 
IF CASsN8eePCOUP)41) > CHEC7}741) THEN 07397000 

IF 1>0 THEN & NEXT BUFF EXISTS 07401900 


Soe EER EERE RE RHEE EE RATER E RNA eRe Ree Re EH EREIIIIIGIOI 


$# PATCH 643 FOR TSSMCP CONTAINS 12 CARDS, FIX PLACEFINDER 


IF (NTL®JARCPIMIX210])80 THEN GO SANDAS % NO LINE OICT 04709900 
DISKWAITC*Ts30eNTI D3 04710000 
IF CAA*BCO).,CFF1)40 OR S>BC1) OR A>1023 THEN 047431000 
NTLEJARCPAMIX28]3 NT2eAASS DIV 303 04722000 
IF CNT3©NT2 DIV NTL * 10) > 29 THEN GO TO SANDA} 04723000 
IF (NT3*JARCPIMIXsNT39280 THEN GO TO SANDA} 04724000 
I¢NT34NT2 MOD NTLS DISKWAITC#Ts300T 23 04725000 
IF CJ*BCS NOD 30)) < 0 THEN GO TO SANDAS 04726000 


AACJ,CCFI3 IF JolFFI = O THEN JelFFJ 613 
$ VOIDT 


04727000 
04730000 


IF WECWeS DIV 3O)THEN DYISKWAITC@Ts 302 (JARCPIMIXe (NTL GAA SW) 047 31000 


DIV CNT2Z¢JARCPIMIXs8]I+1L0]*NTL MOD NT2) OIV 1 D3 
$: THIS PATCH C@RRECTS A PROBLEM OF INCORRECT DISK ADORESSES 
$t IN MCP PROCEDURE PLACEFINDERs 
$t MODIFIED 11/25/78 = STOP POSSIBLE CONTROL@STATE LOOP IF BINARY 
$t SEARCH BOTTOMS QUT, 
$t MODIFIED 3/10/74 = CHECK THAT THE SEGMENT EXISTS IN THE PROGRAM» 
$1 AND THE ADDRESS JS LEQ 41023, IF NOT» JUST GIVE SEG AND ADOR, 
$3 ALSO» ELIMINATE USELESS READ ON OISK SEG ZERO IF NO LINE DICT. 
$? DREXEL Ue PATCH 643 
$t MODIFIED FOR TSSMCP BY DRe UCSC JANe 189 1977 
$3 SEE ALSQ UCSC PATCH 515 
$$ SEE ALSO DREXEL Use PATCHES 2099 7855 789» AND BROCK Ue PATCH 528 


LVRS RREPRR SERRE SAPCOSECCESTOCCOCCCASC ESCA R ACCES CEEP REESE ERASER ARES ERE SY 


$# PATCH 644 FOR TSSMCP CONTAINS 2 CARDS. <MIX>TI 
$3 FIX BUG 
$$ DREXEL Ue PATCH 644 9/23/73 
$$ MODIFIED FOR TSSMCP BY BR» YCSC FEBse 100 1977 
T © CCCLOCKSPCRTR)) OFV 6024034917) & 
IF T<O THEN T © T » @4000003 


LURE EEERERCASESSSCOCOSCEECCESCSACCCES SR SES ERE R CREE RSC OS ERE EE EE EEE ERS E RE EES ES 


$# PATCH 645 FOR TSSMCP CONTAINS 1 CARO. FIX OISKIO 
$! THIS PATGH INTEGERIZES THE ARGUMENTS TO DISKIO TQ INSURE 
$! THAT THE VALUES ARE INTERPRETED CORRECTLYe BAD THINGS MIGHT 
$t HAPPEN IF A REAL CNORMALIZED) NUMBER IS PASSED TO DISKIO. 
$! DREXEL U, PATCH 645 12/2/73 
COREt@CORES SIZEseSIZES DISKesDISKS & INTEGERIZE 


04731100 


08533000 
08533150 


00000100 
00000200 
00000300 
00000400 
00000500 
06004100 


BS ete ee KKH AERA ETEK EEE EERE ERE RK HEREIIIIIIOG 


$# PATCH 647 FOR TSSMCP CONTAINS 2 CARDS. ¢ FOR SPOUT 
$1 THIS PATCH PREVENTS PROBLEMS WITH DATA PASSED TO SPOUT WITHOUT A 
$8 GROUP MARK Ce). SYMPTOMS USUALLY INCLUDE A BOMBED MEMORY LINKe 
$1 A eo" ITS PLACED IN THE LAST CHARACTER OF THE MESSAGE. 
$2 DREXEL Use PATCH 647 2/2/74 
STREAMCX@CCMEMESSAGESLICCFI"1) & 7 CCTFIDI 
DS « LIT “em; 


(PR EREEERESLESCIASECOESE CSCC ALASECAECECOCRCCCR ESE R CERES SER ECSE REC EE SESE ESSE SEE 


S# PATCH 654 FOR TSSMCP CONTAINS 4 CARDS, FIX LOCNTRL 
$t THIS PATCH VOIDS SOME CODE FROM COM23 2/25/74 
$s IF LOCNTRL WAS STARTED FROM A PSEUDO DECK AND OS ON A NO FILE 
$? THE SYSTEM WOULD LOSE WHICH PSEUDO*RDR THE JOB HAD STARTED FROM 
$! WHEN LOCNTRL ENDEC THE ACTIVITY COUNT FOR THE PSEUDORDR 
$1 WOULD NOT BE COUNTED DOWN THUS LEAVING THE DECK STUCK FOREVER 
$3 COR UNTIL H/L WHICH EVER COMES FIRST) 
$: 7/3/74 CORRECTS A PROBLEM WITH LOCNTRL ENDING IF THE CARD READER 
$' GOES NOT READY AFTER READING A CONTINUE CARD 
$t DREXEL Use PATCH 654 

IF FIRST AND COONLY AND NOT CONTINUE THEN 

GO EXIT ELSE 

$ VOIDT 07071912 
$ VorDT 97072902 


02142100 
02142110 


00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
07059110 
07059112 
070714899 
07072899 


SOU ERE ANREKN AEE EHEEREEE KEE EEE RHEE eae EHEOOIOIIOS 


$# PATCH 675 FOR TSSMCP CONTAINS 5 CARDS» PRNPBT ES@ED 

$: THIS PATCH FIXES THE WAY TERMINATE HANOLES AN ES*ED PRNPBT/DISK. 
$1 THE CODE WAS ALL WRONG SINCE XVed@ REWROTE PRNPBT, 

$! NOW THE UNITS CPRINTER» PUNCHs TAPE) SHOULD BE CLEARED PROPERLY. 


$3 DREXEL Use PATCH 675 6/15/74 
$1 SEE DREXEL U. PATCHES 730 826 


BEGIN 02261250 

IF (CLUNeL.64185))2<16 THEN SLAPITOFF3 02261300 

LUNeL,fC4632)4193 & LPAs LPB» OR CPA 02261350 

SLAPITOFF3 02261400 

$ VOIDT 022617014 02261450 


RETO TISELTI TEI TTT TL TI LITTLE e cei rire eo ite 
$# PATCH 688 FOR TSSMCP CONTAINS 2 CARDSe FALSE CONTROLCARD ERRORS 
CCCOMPILE+@$ % INITIALIZE 20584390 
CCUNIT¢QO3 % INITIALIZE 20590030 
$3 THIS PATCH WILL CORRECT A PROBLEM WITH INCORRECT CONTROL CARD ERRORS 
$$ DREXEL Use PATCH 688 4/27/75 
$: MODIFIED FOR TSSMCP BY DR»s yCcSc FEBe 7s 1977 
PURITETTIIE TTI LIT LATE T ETT LITTLE Lire iti tie: 
S$# PATCH 697 FOR TSSMCP CONTAINS 2 CARDS, I0 ERR STATUS 
$: THIS PATGH CORREGTS A PROBLEM WHERE STATUS COULD GET AN UNEXP IO ERR 
$t WHILE PLAYING WITH A TAPE ORIVEs IT SROULD RECOVER OK NOWs 
$! DREXEL Ue PATCH 697 1/25/76 
DO UNTIL C(CTL*WAITIQCAREA INX ®©340000012s0@75%U) #03 22112000 
IF T1el4382)40 TREN TlewAITIOC@4200000000-50U)3 22112100 
CER ETTTTLIETE CELIO TLL LLL Lisi 


S#PATCH NUMBER 708 FOR TSSMCPeXxXIII CONTAINS 3 CAROS PRINT PRN WITH PG 


IF TEST THEN BEGIN STREAM(BTSBUFF D3 08051000 
BEGIN DS#10 LIT*PGEDCPRNe"s SI*LOC Bs DS*S DECS DSe2 LIT*)e%} 08051004 
END3 END % PRINT PRN WITH PLAIN #GMT 08051005 


$t FROM DREXEL Ue 
$: SEE ALSO BROCK Us PATCH 543 FOR TSSMCP3 PATCH 708 REQUIRES LESS CODE 
(URES CECESSRCCCSEREESCE SEES CESSES ECERECECE SERS EES E SERS SS ERE REECE ERE ESE RES EE 
$# PATCH 715 FOR TSSNHCP,XVe3 CONTAINS 1 CARO, MT IO "ERRORS" TO *RETRIES" 
$1 CHANGE "ERRORS" TO "RETRIES® IN MAG TAPE IQ MESSAGE» BECAUSE USERS 
$1 GET WORRIED BY IO ERRORS. (CAS TREY RIGHTFULLY SHOULD» OR*UCSC) 
$! NATAL Ue PATCH 7153 SPELLING BY OR» UCSC 

C12s30818) s"RETAIES"»FPGLFN) sFPBLFNGL I ede 000)3 37285320 
ERSTE RECESSES ESERASSESECERELSESLESESCE CRRA ARSE EEE TERRES ESSE PEER RE ERE RS ES OS 
S# PATCH 717 FOR TSSMCP,XV,3 CONTAINS 13 CARDS, BACKUP TAPES NOT AUTOPRINT 
$: TO MAKE PRINTER BACKUP TAPES IGNORED BY THE AUTOPRINT MECHANISM, 
$t MODIFIED FOR MARK XV,2 BY RAY BARTRO AUG. 1» 1974 
$1 MODIFIED FOR MARK XV,3 BY RAY BARTHO NOV, 1» 1974 
$t MONASH PATCH 556s NATAL Use PATCH 7147 


LABEL FOUND FIREITUPS QUITS 08255800 

END ELSE % Qs0* PB MT 08259800 

BEGIN RRRMECHeTWOCUCABS(Q)) OR RRRMECHS 08259810 

LABELTABLECU] © 08259820 
PBTETINUCVI[6830816]a@216124325)3 08239830 

MULTITABLELV) ¢ PBTs 08259840 

LABELTABLECV) © PBT&TINUCUJC683001828 08259850 

02101494335); 08259860 

GO FIREITUPS 08239870 

END 08259888 

$ VOIDT 08266501 08260899 
$ VOIDT 38639101 38639000 
IF J THEN SETNOTINUSECU*0) ELSE LABEL TABLECU] .CitSje13 38640000 


VES TTETELIE CITI TI ITEC cceece titi si) 
S#PATCH NUMBER 724 FOR TSSWCP CONTAINS 13 CARDS, FULL PAGE 


IF RDCTABLECU] OR MULTITABLECUJS"FULLPGE" 04391550 
THEN IF LQQUECSI.C2894) THEN ITOQUECSJ eC FFI©@40013 S40BL=CH 11 04391560 


ELSE IOQUECSJ],CFFI*+840012 & 
ELSE % SMIP TO CHAN 1 ON EOP 
ROCTABLELCVI-LCA7S1LI*©INRECLCOIS"FULLPGE") 


F@RM = 76H» & SWITCH DC 
LINES66 a 77#, % 66 LI 
LLINES66s % 

LLINES66» 


LLINES66$ % 
EQNCO) « "FULLPGE” 3 %X%SET UP MFID 
"EORM "5 76 » 
MLINES66"> 77 »# 
$3 
$1 REV 42/9/72 MARK XIV 
$3 THIS PATCH WILL CAUSE THE CHANNEL 12 
$t FORMAT TAPE TO BE CVERLOOKED 
$% THE PRINTER IS CLEARED BY DOING A SKI 
$: SPACE OR IS NOT CLEARED AT ALL OEPEN 
$: CONTROL INFORMATICN 
$$ THIS WAS TESTED @N MOD III OS WITH B 
$3 THE DOCUMENTATION SAYS THIS SHOULD NO 
$t YoU ARE SUPPOSED TO CLEAR THE PRINT 
$$ THIS MIGHT BE THE CASE WITH DIFFERENT 
$: THIS VERSION WILL WRK ON ANY CARRIAGE 
$1 FOR SPECIAL PUNCHES ON CHANNELS 10 & 


$t MODIFIED JULY 1973 * MARK XVel 
$% MODIFIED 02/10/74 # MARK XV,2 
$t MODIFIED 12/21/75 TO MAKE OTHER PATCH 


DBL SINGLE = SKIP TO CH 10 
IF NOT 66 LINES 

% LINES66 OPTION 
PCC)"FORM*= "SPECIAL" 
NES PER PaGEe 


FOR FULL PAGE 


PUNCH ON THE VERTICAL 


P OF A SINGLE OR DOUBLE 
DING ON THE ORIGINAL 


924274 PRINTERS 
T WORK IeEe 
ER WITH A SKIP TO CHANNEL 
PRINTERS ANO/OR IOS 
TAPE ELIMINATING THE NEED 
11 


ES WORK BETTER 


$*t FROM OREXEL UNIVERSITY = JHH * 5/21/76 . 
$; NONE OF THE ABOVE STUFF IS TRUE ANYMORE © IT WONT WORK WITH 893215 


$3 THe PROBLEM IS THaT WHEN THe Bp@321 HI 
$: THE END OF PAGE STATUS BIT ON UNTIL A 
$: THIS PUTS MCP INTC A TIGHT LOOPe SOs 
$: SPECIAL FORMAT TAPE WHICH HaS CHANNEL 


TS CHANNEL 12 PUNCH IT KEEPS 
SKIP TO SOMETHING IS GIVEN 
WE GO BACK TO USING A 
11 PUNCHED A OQUBLE SPACE 


$t AFTER CHANNEL 125 AND CHANNEL 10 PUNCHED A SINGLE SPACE AFTER 


$$ THIS PATCH AFFECTS PATCH 603 


PRS ERPEBSERESSESERSSSESESOCSCLOSCESO SSE ERR ERASE SES ESSER ALEC EEE EEE REE ES ESSA SEE SS 


$* PATCH NUMBER 725 FOR YSSMCP,XIII CONT 
DIeDI"8s OSeLIT "4H"3 
IF NOT Teliti] THEN IF TO 
IF Teliti}#0 AND T#O0 THEN 
STREAM(BUFF)S DSe17 LIT 
LABELTABLECUJ© @143 G 


$$ THIS PATGH WILL PROHIBIT THE OPERATOR 
$$ HAS A PHYSICAL AEEL NUMBER OF ZERO WI 
$3: HE ENTERS A NUMBER,» SUCH AS "PGMTBele2 
$3 IF FOR SOME REASON A PRN IS NOT APPLI 
$1 FROM DREXEL Ue 


\ERSPERERESSAERSECESESPERESPESESCE SSE CSAC SLESEE EERE SER RSE ERE STEER EERE RE REESE SE 


$# PATCH 745 FOR TSSMCP CONTAINS 3 CAR 
$t THIS CORRECTS THE PROBLEM WHERE A yoB 
$t REEL BEFGRE ENDING, A SUBSEQUENT JOB 
$! FINAL REEL OF THE ABOVE JOBs BUT WHEN 
$3} VALUE OF REEL FOR THE CURRENT VOB WAS 
$* REEL. THIS MEANT THAT WHEN PRINTING? 
$1 WERE NOT CONSECUTIVE THUS INTERFERING 


AINS 5 CARDS DONT ALLOW PRN&O 


THEN 
BEGIN 
"NOT PG™EDCPRN«&O )o"5 
GO EXIT ENDS TeABSC(T)3 


FROM PURGING A TAPE THAT 
TH THE PG MESSAGE UNLESS 
2", HE MAY ENTER “PGMTC#0" 
CABLE 


DS, PBT REEL NUMBERING 
USING PBT YSED MORE THAN ONE 
REQUIRING PBT CONTINUED ON THE 
A REEL CHANGE QCCURRED» THE 
PUT IN TRE LABEL OF THE NEW 
THE REEL NUMBERS IN THE LABELS 
WITH AUTOMATIC REEL SWITCHINGs 


04391570 
04391580 
12860100 
20240000 
20240020 
20392880 
20394080 
20465058 
20465100 
41485600 
61485626 


08029046 
08033980 
08033992 
08033993 
08033994 


$1 THE REEL NUMBER OF THE FIRST TAPE IS NOW PLACED IN TRE ROCTABLEs ANDO 
$t ASSIGNED TO NEW JCBS USING THE SAME PBT FROM THE ROCTABLEse THIS 
$! CONFLICTS WITH THE DOCUMENTATION IN THAT THE DEFAULT REEL NUMBER FOR 
$: PaT"S NEED NOT NECESSARILY BE ZERO, 
$t NATAL U, PATCH 745 
$: MODIFIED FOR TSSMCP BY DRe yCSC JAN, 172 1977 
ROCTABLECUJ>+PCOUPsLOD&REELCI4338210) 
OCOATECS]4¢314 817 28CYCLEC 418418733 
REEL*ROCTABLECUI].(01421033 % GET ACTUAL REEL NUMBER 


SER ee ee EE EN EERE THERE EERE EEA EEHA EMRE 


$# PaTCH 749 FOR TSSMCP CONTAINS 1 CARD» MEMORY PARITY ERR CAUSES "SD" 

$§ THIS PATCH WILL CAUSE THE MCP TO HOLO ON TO A PSEUDORDECK OF A VOB 

$t WHICH HAS BEEN DS*ED QUE TO A MEMORY PARITY, AFTER ALL» THAT WASN®T 

$3 HIS FAULT. 

$t MOOIFIED 6/13/74 = Sp BIT SET IN TERMINALMESSAGA INSTEAD OF 

$3 IN OUTER BLOCK, 

$! DREXEL Us PATCH F49 (CBRQCK Ue PATCH 749 IS THE UNMODIFIED VERSION) 
IF Nw32 THEN JARCPIMIXS6),01i8iJ¢13 % MEM PAR 


EM PESC EC LASSE SECS SLES ESSCELECCLALSCC CEL LOCLAES ESSE SSLCSLESESOE CS OSCLCE ECLA E SS 2S 


37046177 
37046178 
38247100 


02206100 


$# PATCH 753 FOR TSSMCP,XVe3 CONTAINS 2 CARDS, TIMEC#6) TO GET MIX INDEX 


$! THIS ADDS A NEW TIME FUNCTIONe TIMEC"6) WILL RETURN THE MIX INDEX OF 


$t THE CALLING PROGRAM AS AN INTEGER, 
$3 NATAL Us PATCH 753 
wos I4¢WEEKOAYS GO TO INITIATES 
IF I4 = (#6) THEN IT4¢PIMIX3 


(PERE ECCPERAR ESE SSE LESSEE SC ELECT CCLCEARELICESAELESLACELCALSALELEPICTALLEL TEL 


18711500 
18711690 


$# PATCH 757 FOR TSSMCP.XVIe0 CONTAINS 12 CARDS. REMOVE UNLOAD FILES AT END 


$3 THIS PATCH CAUSES THE FILES SPECIFIED TO BE UNLOADED TO BE REMOVED 
$? ONLY AFTER THEY HAVE ALL BEEN DUMPEDe ALSO IF A DISk PARITY OCCURS 
$! WHILE DUMPING THEN THAT FIle WILL NOT BE REMOVED, 
$3 NATAL Ue PATCH 757 
MCFAINFO+J)],€881238303 % OONT REMOVE IF UNLOAD 
PCMCFA*+L J »+MCFAJ)3 % SAVE NAME FOR UNLOAD 
NTisSP} MCFAJIONTIS MCFA+198"PCXCH)3 & REPLACE NAMES 
$ VOrTDT 28265801 
TMPt=FASZ OXYV 2 © 43 
FOR Jts0 STEP 41 UNTIL TMP 00 
IF CDAS@MCFAINFC4+J)).CCF 1518 THEN % FROM OISK 
IF UNLOAD THEN 
BEGIN MFIDSQeMCFA+Ux2)3 FIDOSSM(FA+1l 4+ 9x2 73 
PCDOIRECTORYSEARCHC@MFIDGIC 384781 sF IDs 7) sDEL)3 
IF DOSED THEN GO TO INITIATES 
END} 


SEWER RRR HEE ERENT HEKERE EERE RRR 


$# PATCH 764 FOR TSSMCP CONTAINS 3 CARDS» TAPES IN USE AFTER FM OR IL 
$$ THIS PATCH PREVENTS TAPE UNITS FROM BEING MARKED AS IN USEe THIS 
$t QCCURS AFTER AN "IL" TO A TAPE UNIT IN RESPONSE TO A “#NO FIL ON 
$t Orsk" OR AN "FM" TQ A TAPE UNIT CONTAINING A TAPE WITH NO WRITE RING 
$1 IN RESPONSE TO A "#FM RQD", THE TAPE WILL REMAIN IN USE UNTIL A H/L 
$* OR THE UNIT IS CLEARED BY A "CL% 
$8 HERIOTTWATT Us PATCH 764 
$$ MODIFIED FOR TSSMCP BY DR»e UCSC FEBe 35 1977 

END ELSE LABELTABLELCT2)#ae(*#PCDUP))3 

IF PRNTABLECU],C1#1)] THEN ELSE 

BEGIN LABEL TABLECUIJ§Is*(#PCDOUP))3G0 TO SOMEWHEREJENDS 


Se Ea ERK REET ENHARANHEARKE NEHER 


$# PATCH 791 FOR TSSMCP CONTAINS 4 CARDS. TYPE PBCOQUNT AT HALT#LOAD 


28093900 
28094500 
28097100 
26265600 
28307700 
28307705 
28307710 
28307715 
28307720 
28307725 
28307730 
28307735 


00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 


06463740 
37053300 
37053400 


$t PATCH TO TELL THE CPERATOR HOW MANY BACK#UP FILES THERE ARE ON OISKs 00000200 
$! REGARDLESS OF THE SETTING OF “AUTOPRNT". 00000300 
$: THE FIRST & THIRD CARDS REMOVE THE DECLARATION FOR THE UNUSED LOCAL "L* 

$: AND VOIDS SOME UNUSED CODE REFERENCING "LL" TO SPOUT THE "PBCOQUNT™ MESSAGE, 


$3 BY NILS OTTEs UNIVERSITY OF NATALe SEPT,» 1976 00000600 

St HERIOT*WATT Us PATCH 791 00000700 

$! MODIFIED FOR TSSMCP BY BR»e YCscC FEBe 8s 1977 

REAL NEXTLINKs ADs Xs Ks SEVEN7* FORTYs Eusu3 40004500 
If PBCQUNT > O THEN % TELL OPERATOR 40320100 
ENDS SPOUTCX)3 40320600 

$ VOIOT 40338006 


PRR ECRRECEESESERSSASCSESCCE ECCS VEE CERO EEE ER CE ERR SRE SERPS EE SERRE EES | 


$# PATCH 801 FOR TSSMCP CONTAINS 39 CARDS. MULTI KEYIN MESSAGES 


REAL BUFFs KTR» TYPEs MIX» As Ie de Ko Toe 16951600 

LABEL RESTART; 16951950 

RESTART! 16954450 

TYPE © KEYINSCANCKTReMIX D3 16954502 

IF CPROCED¢TYPE,CisS)) ei AND CCIeTYPE,CCFJ228 OR Isvcc 16954504 

OR 133 OR I#84) OR (PROcED=O AND Ie1) THEN ELSE & SSeCCeOCeFESAX 16954506 

BEGIN 16954508 

STREAMCKTRsI8)3 16954510 

BEGIN SIeKTR3 16954512 

BCGOCIF Scate THEN 169545144 

BEGIN Lt SI*SI4 43 16954516 

63CSI*SI443 IF SCa"™"™" THEN JUMP QUTA 16954518 

IF Scate* THEN WUMP OUT 3 TO YECH)3 16954520 

Sle+SI+i3 16954522 

IF Sc" THEN GO TO L3 169545204 

END} 16954526 

If Scw%e" THEN JUMP OUT 2 TO YECKS 16954528 

IF SC#"3" THEN 16954530 

BEGIN 16954532 

TeSJ3 TALLYeL3 16954534 

Olerls DBPSeLIT "es 16954536 

Xt SyeSy413 IF SC="F" THEN GO TO XS IeSI3 16954538 

JUMP OUT 2 TO YECKs 16954540 

ENDS SI#SI41))3 16954542 

YECH! KTRETALLY3 46954544 

END STREAM; 16954546 

IeP3 IF P THEN 16954548 

STREAM(C I» Te Te#GETSPACE(622050)43)3 16954550 

BEGIN 16954552 

Sie¢r3 16954554 

BCOOCIF SCaMe" THEN JUMP OUT 2 TO L ELSE DSeCHRIDS LIDSeL IT e"s 16954556 

END STREAM3 16954558 

END CHECK FOR KEYIN RECYCLE} 16954560 

If PROCED=7 THEN GO TO TBLERRS 169546090 

IF T>O THEN % ANOTHER MESSAGE 16969710 

BEGIN 16969720 

BUFF eT3 TeQ3 16969730 

GO RESTART; 16969740 

END3 16969758 
$t DREXEL Use PATCH 801 9/23/73 


$3 THIS PATGH WILL ALLOW MORE THAN ONE COMMAND IN EACH KEYBOARD MESSAGE 
$1 SEPARATED BY SEMICOLONS» AS SUCH3 

$i MXSTSSBLICC REMOVE A/B 

$3 NOTE: NO KEYIN COMMANDS MAY BE CONTINUED AFTER A CONTROL CARD 15S 


$1! FOUNDs 
$3 MODIFIED 11/10/73 = CHAINED MESSAGES IGNORED FOR FE» OCe Axe 
$3 MODIFIED 9/8/74 
$t THIS PATCH INHIBITS THE RUNNING OF KEYIN PROCEDURE "KEYINe” IF THE BE 
$¢ IS GETTING FULL. 
$$ IF THE OPERATOR (COR A REMOTE USER) KEYS IN A MESSAGE CAUSING 
$$ INDEPENDENT RUNNER KEYIN2 TO RUNs AND THE BEC IS WITHIN 4 ENTRIES OF 
$t FULL» A “"WAlLTeee( KEYIN MESSAGE)” WILL BE SPOUTED, (CNOT NEEDED IN TSS 
$3 MODIFIED 10/5/75 = FIX PROBLEM WHERE IF INPUT MESSAGE IS LONGER THAN 
$1 480 CHARACTERSs A ¢ WOULD BE PUT IN THE FIRST CHARACTER OF THE 
$t NEXT MEMORY LINKs LEADING To GRAVE PROBLEMS, 
$3 ALSO» SUCCESSIVE SEMICOLONS ARE IGNOREO, 
$t MODIFIED FOR TSSMCP BY DRe yCsc FEB. 7» 1977 
SU REE EE REE ERE EERE EERE ETE A TERE ee 
$% PATCH 815 FOR TS8MCP eb 17 CAROS, CLEAR IN USE FILE 
$! DREXEL U, PATCH 815 2/10/7 
$3 THIS PATCH WILL ENABLE THE PERATOR TO CLEAR AN IN®USE FILE BY 
$: DOING A "Q RESET FILE A/B%e IT SHOULO BE USED CAUTIOUSLY SINCE 
$3 OYRE CONSEQUENCES COULD RESULT FROM "CLOSING" A TRULY “IN*USE" 
$: FILE. IT IS USEFUL FOR THOSE STUCK IN USE PBD FILES AND SUCHs 
$! MOOIFIED 10/27/75 » REPEAT MCP FILE IN USE MESSAGE ABOUT EVERY 2 MIN, 
$! MODIFIED FOR MARK XVI BY¥ DR»e UCSC FEB. tis 1977 
$: SEE ALSO UCSC PATCH 819 
WHILE NOT TOG p00 
COMPLEXSLEEPC (CLOCK AND @17777)80 OR TOG); 
SLEEPCCCLOCKJsNOT CLOCK )3 
BOOLEAN FT&N3 DEFINE FHCFHL eMC THFAY #3 8% RESET FILE A/B8 
SUBROUTINE CLEARTHEFILE3 % CLEAR AN IN*USE FILE 
BEGIN 
FHL4],C0O1806)¢03 % EXCLUSIVE 
FHL4),0168201¢0; % @PEN COUNT 2 
FHL9I,£01228}¢03 % TOGS &@ OPEN COUNT 1 
DISKWAITCT,CCF1s300T. CFF I) a FIX IT 
FILEHOLOCCMME2J2CMML(3)200T20)3 4 WAKE UP WAITING PROCESSES 
LBMESSCCMM(2] sCMMEC 3) o4122620eSPOUTUNITo1)3 
ENO ¢CLEARTHEFILE3 
IF CN#ACCESSD THEN 
IF NOT CFTeFXTOGeC(CNSFILEV)) THEN GO TO CCERR3 
$ VOrOT 
END ELSE IF FT THEN CLEARTHEFILE ELSE BEGIN 
SRR UCRERASSCSAESTRSIESCTOSCOSLOS OSE COSC SESE RE SEES ESE SS ESE REET RARER EEE REESE | 


S#PATCH NUMBER 846 FCR TSSMCP CONTAINS 7 CARDSe OUMMY FILE 


IF 100,03%5]"30 THEN GO RETURNS % SPO 
FORM w 75#2% SwITCh OCPCC)*FORM"@ "SPECIAL 
LDUMMY >» 
LOUMMY » 
LOUMMY8 TPNOe*143 & * FORM SPO" = DUMMY FILE 
“FORM ", 75 2 % SWITCR OCPCC) 
WOUMMY >» 76 » 


$3 THIS IS THE MCP PORTION OF THE DUMMY FILE PATCHe IT ALSO REQUIRES A 
$3 PATCH TO THE INTRINSICSe IT PROVIDES THE WORD "DUMMY" AS A UNIT 

$3 TYPE, OUTPUT TO “DUMMY” WILL CREATE A "SPECIAL FORM SPO FILE"s 

$t WHICH THE INTRINSICS WILL IGNOREs 

$3 FROM DREXEL U, PATCH 846 JHH AT UCSC 


PREC ERELESECALASESUESERCSREECAE CASE CE OSCE SESE RECEP RSE ESSE SEE ERE RE EES SES 


S#PATCH 890 FOR TSSMCP CONTAINS 173 CARDS = DATAQ29/EBCDIC 


0 


MCP) 


18031400 
18032000 
16032010 
20704100 
20704200 
20704210 
20704220 
20704230 
20704240 
20704250 
20704260 
20704270 
207042860 
20714000 
20714500 
20768000 
20769000 


04105998 
20240000 
20392876 
20394070 
20451900 
41485600 
41485630 


$tAUG 1975 HERIOT*WATT UNIVERSITY * LOCAL ONLY* 
S$tAND PERFORMS EBCDIC TO BCL CONVERSION 


StIMPLEMENTS DATAO29 CARD 


StWAS PATCHES 900"902 IN MARK XVele *#* NB& SEQUENCE NUMBERS CHANGED w%% 


$1 

PROCEDURE EBTABLE3 

BEGIN LABEL L3 
PCOeXIT Ta el» DEL D3 

Lats 


07003270 
07003280 
07003290 
07003300 


Oa JAPA MLZPIMMOTSEM eM /OP2M MLK PT MP2 9 MAID TM NPD 227 oe MECB? Mo MAPI2" 907003310 


PIM a MP2 2 PM MOP IM MIDIIM, MIDIPM S MNDIDRM 4 
Mah 2 Rl A Oy De el Ae Oe De a le De Dr Oy AD 0 OD oD sD OW Oe De 2 i DB Oe 
sali Dy Oy Dy Lal ids Dy Dy Dy Da DAs Dy OY Oy Dd Dal De Wy Oe 2 Oe eB 
ats LA Rw de Dy i as 2 2 OO ee 2 De DD Oe 
ball 0 By Ur dl A A OY ON ld hl Bt Bt A OO Oe a de De Ot Be OO 
@07770675200537044 328067 146616,06517647 3» 
047574656 50455544539 5%9999",9979909%, C277 K42620 28259524365 
be 90 Ra Madly oy Wy Oy DA Badly Oy oy De ly 2 Dy oy A a 2 2 a OO OD 
ZQMARKADDRESSES 
Oy Dy Sy Da Dally Dy By i Da ka Ode Or Sakae OS a DO I De De rl i ll Dn i A Sa De De DD 
dl Wy iy BA By Be 2 a ls 0 0 Be 2 A Be 2 
0#020909020209080202020202020208 % SPACE FOR ADDRESSES 
0902000902 0903 
END3 
REAL PROCEDURE SETUREBTABLE3 
BEGIN REAL ADRS LABEL EXIT3 
DEFINE STOREADDRESS= 
MP™S73 ST#FLOc xs STseSy4+53 
OSt#3 CHRS Olsapl+§ #3 
EBTABLE} 
PCUMCCADR#s*PC,EBTABLE) INX NOT 123)210R)3 
SETUPEBTABLE S$ =ADR&tsADR. (CF 1433 
IF MCADR+81) = C THEN 
STREAM (X2eQse TABLE te ADRs QMARKTABLEADORE SSt2ADR+ 32 sLOCATIONS 3 SADR+40)3 
BEGIN 
DItaTABLEs SIteTABLES SIl8aS1 +83 
2C4OCST8SS1443 OS8e4 CHRS))3 
RFIRST FILL ALL OF AQDDRESSES WITH ADORESS OF 75 
SI!sQMARKTABLEADDRESS3 
Xt®BST3 
SIts_oc Xs SItaSl+53 POINT SY AT ADDRESS OF QMARKS 
DIFs_LOcATIONS3 
DSta3 CKR3 
SIts_LOcATIONS3 
DS%263 WOS; 
SNOW SET ADDRESSES FOR VALID CHARS INTO EBCDIC TABLE 
SI?=TABLES 
DIt=LOCATIONS3 
3CSTOREAODDRESS} ZSTORE ADORESSES FOR LPsOQsls2 
ZCORRESPONDING TO BLANKs9 HOLEs8 HOLE 
Slisy3 
SiteSy+633 STs=SI4+4)3 XSKIP 8 WORDS DOWN TABLE 
Oltspr+a3 %LPs3 IS INVALIO 
STOREADDRESS:3 BLPBPhesege 7 HOLE 
Ditapr+as XLP85 IS INVALID 
SI tay; 
SlteSyer3 ZSKIP 4 CHAR OOWN TABLE 


070033128 
07003320 
07003322 
07003330 
07003332 
07003340 
07003342 
079003344 
07003350 
07003352 
07003354 
07003360 
07003370 
07003380 
07003400 
07003410 
07003412 
07003414 
07003416 
07003420 
07003430 
07003440 
07003450 
07003468 
07003464 
07003466 
07003468 
07003482 
07003484 
07003486 
07003468 
07003490 
07003492 
07003494 
07003496 
07003498 
07003500 
079003502 
07003504 
07003506 
07003508 
07003510 
07003512 
07003514 
07003516 
07003518 
07003520 


STOREADDRESS} ZLPe6e0e0e7h8B HOLES TOGETHER 
DIiteny+a3 

STisx; 

SItaSpeg3 

STORFADDRESS3 ZLPSB.eee6 HOLE 

Olt anr+83 

Sl tay} 

SIteSy4+13 

STOREADDRESS3 ZLPeLOeee s688 HOLES TOGETHER 
DItepy+403 RMISS 5S WORDS ee eL PFL12129139914015 
SIltaxs 

ST#aStey3 

STOREADDRESS; ELPteiGesee 5 HOLE 

DItsp1+s3 

SI tax} 

SItsSre.3 

STOREADORESSS ZLPaiBeeee 588 HOLES TOGETHER 
2COl+epl+52)3 ZMISS 13 WORDSege ch Pwl19"3) 
SIeax3 

SltsSre.3 

STOREADDRESS3 MLPR3I2eeeee 4 HOLE 

DI tapr+a3 

Slits x; 

Slt=Syeoq3 

STOREADDRESS3 BLPS3ZGeeceee 488 HOLES TOGETHER 
ENDS 

END3 


07003522 
07003524 
07003526 
07003528 
07003530 
07003532 
07003534 
07003536 
07003538 
07003540 
07003542 
07003544 
07003546 
07003548 
07003550 
07003552 
07003554 
07003556 
07003558 
07003560 
07003568 
07003564 
079003566 
07003568 
07003570 
07003580 
07003590 


RETR AREA EERE EHR EEN eee eee eee HO 7003600 


STREAM PROCEDURE EBCDICCONVERTCINTOsTABLE» POINTERS )3 
VALUE INTOs TABLE» POINTERSS 


07003610 
07003615 


Se EEE EE AREER EEE ENE EER WENNER EERE EERE EEE KK HHEO 7003620 


BEGIN 
LOCAL HPsLPsSRCE*DESTsHPPTReLPPTR3 
ZPOINT HPPTR & LPPTR TO LAST CHAR OF HKPoLP 
SI%#_LOC HP; 
STtaS14+73 
HPPTRsaSI3 ZHIGH PART 
SIte_ac LP3 
SI#sSyo7s 
LPPTRs=SI3 ZLOW PART 
SI&syNTOSJ STteSl oa; 
DIsaINTO3 
ZSTART CMARACTER TRANSLATE LOOP 
2(40¢ 
DEST:=013 
RTRANSFER LOW & HIGH PARTS 
DItsHPPTR3 
DStei CHR} 
ODIs aL PPTRs 
OS#sy CHR3 
SRCEseS]3 STORE SY FOR NEXT PASS THRU LOOP 
SNOW FIND THE POINTER INTO TABLE APPROPRIATE TO LP 
SI tsPOINTERS3 
LPCSyssSI+8)3 
ST?#ssc3 %SI NOW POINTS INTO TABLE @ POINT DEPENDANT ON LP 
DI'spEeSst3 
ST&sSI+HP3 RSKIP SI THROUGH TABLE HP CHARS 


07003630 
07003640 
07003650 
07003660 
07003670 
07003680 
07003690 
07003700 
07003710 
07003720 
07003730 
07003740 
07003750 
07003760 
07003770 
07003780 
07003790 
07003800 
07003810 
07003820 
07003830 
07003840 
07003860 
07003870 
07003880 
07003890 


OStscHR3 
SI##SrRce))3 
DIS=TABLES DIszpl433 ZPOINT TO GMRK 
END CONVERTS 
BOOLEAN EBCOICS REAL EBTABLEADRS 
IF EBCDIC THEN 
BEGIN 
EBCOICI*FALSE3 
MEC*PCeEBTABLE) INX NOT 1)]9f281] 3003 
END3 
STREAMCXSE"PACKETS"3YSe"CONTINU"sZEB"END, "» 
EBte"DATAOZ9"s INBUFF DS 


INBUFFt&sS73 
ELSE BEGIN SISsINBUFFSDI% "LOC Y; 
ST3sINBUFFS 
IF 3 SC30C THEN TALLY! 87 
ELSE BEGIN 


DIssOC EBSOI&t aD +43 
SISSINBUFFS 
IF 6 SCsOC THEN 
$VOID 
TALLY tea3 
$SVOID 07036351 
END ENO END3 
IF PTYPE = 4 THEN 
BEGIN PTYPESmO3 EBCDICtaTRUE} 
EBTABLEACRItsSETUPEBTABLE3 
END3 
ELSE BEGIN WHILEC@s@WwalTIOC@4Q0OOO00+I NEUF Fe 
EBCOICx@ 400000001 eFIRSTx4+ 
IF EBCDIC THEN EBCOICCONVERTCINBUFF >» 
E@TABLEADRsEBTABLEADRs40) ELSE 
STREAMCQMKSFL2ZSBCL3eLeEBCDIC»INQUFF )3 
BEGIN 
SYSSINBUFF3 
BcL CIF SCar"t THEN JUMP OUT TO 4123 
IF SC#@14 THEN 
Lit BEGIN SJ%sLOC QmMKsSjtsSy+7; 
OSs=s1 CHRs 
TALLY #213 
SItaINBuUFF3 
2C36CIF ScC=*>" THEN 
BEGIN INBUFFe@SI3 OLtsINBuUFF3 
OStaLIT "a" 
ENDS 
Ir Sc=z"2" THEN 
BEGIN INBUFF&aSq3 DItsINBUFF3 
OSts LIT ne 
ENDS SI8naSI413)) 


ENDS 

QMK tRTALLY3 
ENDs 

Qt=P OR Q3 


$ VOIDT 
INBUFF %#® GETSPACE (219091) + 23 
STREAMC(CARDLOC)3 
BEGIN SI*CARDLOC3 


07003900 
07003910 
07003920 
07003950 
07009200 
07031200 
07931300 
07031400 
07031500 
07031600 
07032000 
07032100 
07034500 
07036220 
07036258 
07036260 
07036278 
07036286 
07036290 
07036300 
07036310 
07036328 
07036330 
07036390 
07039500 
07039600 
07039700 
07039800 
07059000 
07059010 
07060100 
07060200 
07066100 
07066200 
07066300 
07066350 
07066400 
07066500 
07066556 
07066600 
07066610 
07066620 
07066630 
079066635 
07066646 
07066650 
07066660 
07066665 
07066670 
07066700 
07066800 
07066856 
07066900 
07086000 
07101000 
20374401 
20374402 


2¢36CIF Scat>" THEN 20374403 

BEGIN CARDLOC*SISDI*CARDLOCADS* LIT "=" ENDS 20374404 

IF scz"2" THEN 20374405 

BEGIN CARDLOC*SISOI*CARDLOCIDSe LIT """ ENDS 20374406 

STeSI+13)) 20374407 

ENDS 20374408 

CIF KOUNT = "=" THEN EQUAL ELSE % THIS IS AS IN SYMBOL 20380000 
"DATAQ29">» 41 » 41483010 


$# PATCH 891 FOR TSSMCP,.XVI.0O CONTAINS 8 CARDS. CORRECT 890 (DATAO029) 

$3 CORRECTS A MISPUNCH IN PaTCH 890 (900) WHERE EBTABLE WAS SET UP WRONGLY 
$% DEREK BRUCE oe MAY 1976 oo HeWaUe 

$I 


07003250 
RHRAAHAKEHHARAKARRAR RAR MAKER ERMA RA RAR AKER AAHRA HERRERA RARER RHEE AH EHRERO7TNNI2S1 
07003252 
i OW DA OO Oe a Bs 2 2 07003344 
07003390 
LHAHEHHEREKAERRHO RAE RAR AHERKEA RARER CREAR ECRHA REAR EAR E ARK AREER OEE HEZO7003391 
07003392 
INBUFF © GETSPACE( 242001 ) + 23 07101000 

S#PATCH 892 FOR TSSMCP CONTAINS 2 CAROS. CORRECT 8905891 
077706752 08577044 398067 146616506517647 3» 07003340 
INBUFF © GETSPACE(2isIQBUFFERAREAVs1) + 23 07101000 


$t THIS PATCH MODIFIES THE DATAO29 FEATURE CPATCH 890) SO THAT 
StSINGLE QUOTE COMING IN IS CHANGED 00 D6 5 
$$ BY JHHs UCSCs 11 AUG 77 
$t MODIFIED 19 AUG 77 To USE AREA TYPING INTRODUCED IN PATCH 167 
$# PATCH 901 FOR TSSMCP CONTAINS 1 CARDe TERMINAL LOG*IN MESSAGE #h#e ee RR eeRE REE 
$1 CHANGE THIS DATE EACH TIME ANY OTHER PATCHES ARE CHANGEDe Seeeeee LUDK <K<<<< 
$: BY TJP» UCSC MOCIFIED BY DR» UCSC 
DSe35L1T*sexUCSC 85700 TSSMCP QF 24 AUG 77, "3 03595560 


LPR RERPECECCCSSALOSSCCASESE CEOS SERS SECS E EEA EE ELE EERE ESE REECE SER ES ER ESE SE SS 


$# PATCH NUMBER 902 FOR TSSMCP CONTAINS 3 CARDSe AUTORN OPTION 


AUTORN = OPTION,Ci7311# 00416640 
"AUTO"» — "RNOO", 417% 41434800 
If AUTORN THEN BEGIN RUNUMBERt®#43 STARTADECK(O)3 ENDS 44424100 


$3 

$? 3 CARDS DELETE THE RNALL OPTION USED WITH SHAREDISK QNLY AND 

$t REPLACE IT WITH THE NEW AUTORN OPTION WHICH WILL AUTOMATICALLY 

$3 START PSEUDO READERS WHEN THE SYSTEM IS STARTED UP 

$1 BY JHH MARK XVI,0 

$3 SEE ALSO BROCK Us, PATCH 571 FOR TSSMCP 

SERA RENEE REE EEE EERE REE EEE Ee ee ROE i et 

$#PATCH NUMBER 903 FOR TSSMCP CONTAINS 2 CAROS 
IF LO#23 THEN BEGIN LOtse73s KIlse283 END ELSE 37195375 
IF L027 THEN BEGIN .0:203 HI9s153 END ELSE GO TO DUN; 37195400 

$$ THIS PERMITS PROC. FINDINPUT TO FINO UNIT PRAe QBSERVE THAT PRA 

$1 IS EXPECTED TO HAVE REEL NUMBER 1 MOUNTED» UNLESS SOME OTHER REEL 

$t NUMBER IS DESIGNATED EXPLICITLY. WHHEDR AUGe 24% 1976 


CER TET TTT TTT TTIE TELE TT TTT TIE TLL LI LLL) 
$# PATCH 905 FOR TSSMCP,XVI.0 CONTAINS 4 CARD. OELETE UNUSED LABEL DECLARATION 
$t BY DRe UCSCs OCT, 42 1976 
LABEL PX3 38660000 
PRET TET E TITTLE TITTLE LiL Li Lee cee 
$# PATCH NUMBER 917 FOR TSSMCP,XVIe00 CONTAINS O07 CARDS, “PBT ON MTX RW/L CPRN", 
STREAMCMTX®*TINUCUNITJsPRNGPRNTABLECUNITI «C3IO&18Ie%517°GRK 12530010 
DeTeSPACEC10)93 4547°GRK 12530020 


Weeveveeeveeee ee eee © & © 6© 6 OO @ 


BEGIN SI©LOC MTX3 SIeSI453 OS*S8LIT*#PBT ON 3351712530030 
DS*3CHRS DSe7LIT" RW/L C3 DSeSDEC3 $517 12530040 
DS#2LIT*%2¢"3 OLeDI*74 OSe4F ILLS B517"GRK 12530050 
END STREAM3 Z517°GRK 12530060 
SPOUTCT)3 S517"GRK 12530070 
$3 
$f THIS PATCH WILL SPOUT A RW/L MESSAGE WHEN A PBT IS LOCKED BY COMI9 
$1 TO MAKE IT EASIER TQ DETERMINE LATER WHICH TAPE WAS ACTUALLY 
$1 PRINTED. 
$1 
$! GR eKENNEDY 21MAR75, BROCK Us PATCH 517 
$t SEE ALSO UCSC TSSMCP PATCH 940 = BROCK Uy, PATCH 540 
RCC RPRERERE SESE RCS ESSE OCCESE SSPE SERA SESE RE ERE SEER SERS EE ESR EERE EER SESE ES 


$# PATCH NUMBER 950 FCR TSSMCP,XVIs00 CONTAINS 03 CARDS,CLEANUP CANDE STUFF eGRKe 


$ SET OMIT ZSETUP SHORT/LONG CARRIAGE MESSAGE %550°GRK 05751400 
$ POP OMIT %550=GRK 05754600 
Rg SPOUTITCT»CHRGK4#1)3 &*SHORT/LONG CARRIAGE MSG &550"GRK 05756500 
$3 


$t THIS PATCH CLEANS UP SOME OF THE CANDE@RELATED MESSAGES A BIT. 

$t 1. DONT BOTHER BUILDING/SPOUTING THE "SHORT/LONG CARRIAGE" MESSAGE 
$3 

$$ GReKENNEDY OS8MAR76, BROCK Ue PATCH 550 

Sie eee ERE ee it eke Ee ik tet 
$*# PATCH 991 FOR TSSwCP CONTAINS 9 CARDS», SCHEDULER CHANGE 

$: THIS PATCH ATTEMPTS TO IMPRQVE EFFICIENCY OF TSSMCP BY 

$: REDUCING UNNECESSARY SWAPPING WITHOUT HURTING TERMINAL JOBS. 

$$ 4. THE TIME SLICE IS MADE MUCH LONGER FOR yOBS THAT ySE A LOT 


$3 OF CORE, 
$$ 2, BATCH yOBS WHICH USE UP THEIR TIME SLICE ARE SWAPPED OUT 
$1 WITH “"TIMEND* AS BEFORE, BUT TERMINAL YOBS ARE SWAPPED OuT 
$3 AT "FORCENO", GIVING THEM PRECEDENCE OVER THE “TIMEND” JOBS, 
$t 3. BATCM JOBS WHICH ARE FORCED GUT ARE SWAPPED OUT WITH “TIMEND"” 
$3 RATHER THAN AT "FORCEND", 
$3 
NTL©CSLNCMIX3*%30 # COUNTCMIX]x14 = NT1)*%8 + 2083 21111540 
IF PRTROWCMIX),¢PSFIS3 THEN PRTROWCMIX],.CPSFJ¢OS SUCSC KLUOGE 21212010 
IF NT3=2 THEN STOPM ELSE SWAP(¢ 48030000 
IF LOGLINEs£33%7)40 THEN 48030010 
If NOT SCHEDLINECLOGLINE,£4088]) THEN 48030015 
FORCESWAP ELSE TIMEND ELSE TIMEND#1)3 48030020 
BEGIN SWAPCIF LOGLINE.s£33:71]40 THEN 48038400 
IF NOT SCHEDLINECLOGLINE.€C4088)) THEN FORCESWAP 48038405 
ELSE TIMEND ELSE TIMENDs1)3 GO TO RETURN END; 48038410 
$3 


$t BY JeHes UCSC» 7 APR 773 REVISED 16 APR 77 REVISED 28 APR 77 


PRU RPREREAESASESE REECE SE CEASERS CRES REECE LES EEE EEE SERRE ER EERE SESE SARE REE SE 

$# PATCH 992 FOR TSSWCP CONTAINS 4 CARDSe LABEL THE HIGH@SPEED PAPER TAPE ROR 
$3 AUTOMATICALLY ASSIGN A LABEL TO THE HIGH=SPEED PAPER TAPE READER PORT 

$t WHENEVER IT GOES READY 

$1 BY DR» UCSC FEB. 10 1977 


$ VOIOT 22199000 
PAPERS LABELTABLECU] + MULTITABLECU) ¢ "PRA ms 22201200 
ROCTABLECUJ ¢ @1000000003 % REEL NR. ® 34 22201400 

GQ TO COMMONS 22201600 


(BRP ECRCROCOESECRCESSESERSOSCLESCSSLISESEESE EER EERE REESE RECS E PREP ER EER ERS SEE ED 


$# PATCH 993 FOR TSSMCP CONTAINS 2 CARDS« AUTO"RY QF SCHEDULE LINES AT H/L 
$t BY DR» UCSC FEB, 10% 1977 


®#eeeeeee$e$eese«#e#e8 &@6dc0OhmUcCOmhCOhlhOHhlUCOhlUOMhlUDlClCU® 


FOR NT1e1 STEP 1 UNTIL LMAX 00 44430000 
IF SCHEDLINECNT13) THEN SCHEDBUSYENTI) © 03 44430100 


RECT SESSEE RE SESE ESE CESSRESE PRES E RESELLER RES EERE SERRE ERE RARER RE RSS EE SS 


$# PATCH 995 FOR TSSMCP CONTAINS 2 CARDSe DUPLICATE FORWARD REFERENCES 00000100 


$$! WHERE THERE ARE 2 OR MORE FORWARD REFERENCES TO THE SAME 00000200 
$! PROCEDURE» THIS PATCH DELETES ALL BUT THE 1ST FORWARD REFERENCE, 00000300 
$1 BY DRs UCSC FEB, 32 1977 00000400 
$! LINE 00364000 = LINE 06020500 00000500 
$! LINE 00481500 = LINE 03099000 00000600 
$ VOIODT 03099000 
$'VOrIOT 06020500 


CSET TE TEETER ELE TELLER E CL EIETELELIIELETT ELIT LLITT LITT. 

$# PATCH NUMBER 996 FoR TSSMCP CONTAINS 1 CARDe AUTO=LOGOQUT AT MIONIGHT. 
DEFINE MIONIGHT = BEGIN LOGOUTS XCLOCK &3XcLOcK#WITCHINGHOURS 02393200 
$3 

$t THIS AUTOMATICALLY CHANGES THE LOG FILE AT MIDNIGHT» SO THAT 

$tEacH LOG FILE CONTAINS ONLY GONE DAY=S WORTH OF LOGGINGs TO 

$3: FACILITATE ANALYSIS, 

$? BY JHe UCSC» 01/19/77 

SW te eee eR EHR ERE EET E EEE EE 
$#PaTCH NUMBER 998 FOR TSSMCP CONTAINS 2 CARDSe MIXMAXSMAXLMAX 

DEFINE MIXMAXS40#3 00004000 
DEFINE MAXLMAX#20 #3 % SHUD BE ABT 8&8 + aCTUAR MAX LINES 00004500 


SRP PREP RSSSS SSPE SESE CESC SOSA SET COCR REECE REE REESE REESE PARR RRR S ES SSS Sf 


LABEL OOOOOOQOOOLINE 00178079CC EX O/RSCOMMONSLSFILE SePATCHES/TSSMCP3FILE LINE®LINE PRINTSENDS 


7R 


‘A 


